home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / mint / shells / tcsh6033.zoo / tcsh-603.pl3 / diffs < prev    next >
Text File  |  1993-03-22  |  171KB  |  6,210 lines
  1. diff --context --new-file --recursive ../../store/tcsh-6.03/Makefile ./Makefile
  2. *** ../../store/tcsh-6.03/Makefile    Tue Nov 24 13:04:36 1992
  3. --- ./Makefile    Wed Mar 10 05:54:44 1993
  4. ***************
  5. *** 7,12 ****
  6. --- 7,16 ----
  7.   # With an input editor, command completion, etc. and ported to all sorts of
  8.   # things; Paul Placeway, CIS Dept., Ohio State University
  9.   #
  10. + 
  11. + CROSSDIR = /usr/users1/mat91/mh1/atari/cross-gcc
  12. + CROSSBIN = $(CROSSDIR)/bin
  13. + 
  14.   SHELL=/bin/sh
  15.   VERSION=6.03
  16.   BUILD=tcsh
  17. ***************
  18. *** 24,30 ****
  19.   SUF=o
  20.   CF=-c
  21.   
  22. ! INCLUDES=-I. -I..
  23.   
  24.   LFLAGS=$(INCLUDES)
  25.   #LFLAGS=$(INCLUDES) -Zn10000        # hpux lint
  26. --- 28,35 ----
  27.   SUF=o
  28.   CF=-c
  29.   
  30. ! #INCLUDES=-I. -I..
  31. ! INCLUDES=-I.
  32.   
  33.   LFLAGS=$(INCLUDES)
  34.   #LFLAGS=$(INCLUDES) -Zn10000        # hpux lint
  35. ***************
  36. *** 49,55 ****
  37.   #CFLAGS=-O $(INCLUDES)
  38.   
  39.   # gcc-2.1
  40. ! CFLAGS=-O2 $(INCLUDES)
  41.   
  42.   # gcc 2.1 on linux
  43.   #CFLAGS=-O6 -fomit-frame-pointer $(INCLUDES)
  44. --- 54,60 ----
  45.   #CFLAGS=-O $(INCLUDES)
  46.   
  47.   # gcc-2.1
  48. ! #CFLAGS=-O2 $(INCLUDES)
  49.   
  50.   # gcc 2.1 on linux
  51.   #CFLAGS=-O6 -fomit-frame-pointer $(INCLUDES)
  52. ***************
  53. *** 83,88 ****
  54. --- 88,96 ----
  55.   # Dnix 5.3
  56.   #CFLAGS = -O -X7
  57.   
  58. + # MiNT
  59. + CFLAGS = -O6 -fomit-frame-pointer -finline-functions -fstrength-reduce $(INCLUDES)
  60. + 
  61.   # Apollo's with cc [apollo builtins don't work with gcc]
  62.   # and apollo should not define __STDC__ if it does not have
  63.   # the standard header files. RT's (aos4.3) need that too;
  64. ***************
  65. *** 100,106 ****
  66.   #DFLAGS=-D_VMS_POSIX
  67.   # DEC/osf-1 on the alpha
  68.   #DFLAGS=-D_BSD
  69. ! DFLAGS=
  70.   
  71.   
  72.   ################################################################
  73. --- 108,115 ----
  74.   #DFLAGS=-D_VMS_POSIX
  75.   # DEC/osf-1 on the alpha
  76.   #DFLAGS=-D_BSD
  77. ! # MiNT has no crypt()
  78. ! DFLAGS=-DNO_CRYPT -DINBUFSIZE=BUFSIZE
  79.   
  80.   
  81.   ################################################################
  82. ***************
  83. *** 117,123 ****
  84.   ################################################################
  85.   ## LIBES.  Pick one, or roll your own.
  86.   ################################################################
  87. ! LIBES= -ltermcap         ## BSD style things, hpux
  88.   #LIBES= -ltermc            ## emx under OS/2
  89.   #LIBES= -ltermcap -lsec        ## Tek XD88/10 (UTekV) with PW_SHADOW
  90.   #LIBES= -ltermcap -lsec        ## Motorola MPC (sysV88) with PW_SHADOW
  91. --- 126,132 ----
  92.   ################################################################
  93.   ## LIBES.  Pick one, or roll your own.
  94.   ################################################################
  95. ! #LIBES= -ltermcap         ## BSD style things, hpux
  96.   #LIBES= -ltermc            ## emx under OS/2
  97.   #LIBES= -ltermcap -lsec        ## Tek XD88/10 (UTekV) with PW_SHADOW
  98.   #LIBES= -ltermcap -lsec        ## Motorola MPC (sysV88) with PW_SHADOW
  99. ***************
  100. *** 152,159 ****
  101.   #LIBES= -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a ## Stardent Vistra
  102.   #LIBES= -ltermcap -lndir -lsocket -ljobs ## masscomp RTU6.0
  103.   #LIBES= -ltermcap -lauth        ## for Ultrix with Enhanced Security
  104.   
  105. - 
  106.   # The difficult choice of a c-compiler...
  107.   # First, you should try your own c-compiler. 
  108.   # Gcc -traditional is also a safe choice. 
  109. --- 161,168 ----
  110.   #LIBES= -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a ## Stardent Vistra
  111.   #LIBES= -ltermcap -lndir -lsocket -ljobs ## masscomp RTU6.0
  112.   #LIBES= -ltermcap -lauth        ## for Ultrix with Enhanced Security
  113. + LIBES=    -lbtermcap        ## when compiling with -mbaserel in MiNT
  114.   
  115.   # The difficult choice of a c-compiler...
  116.   # First, you should try your own c-compiler. 
  117.   # Gcc -traditional is also a safe choice. 
  118. ***************
  119. *** 164,170 ****
  120.   
  121.   # The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which
  122.   # on the suns does not know how to make dynamically linked binaries.
  123. ! CC=    gcc -Wall -B/bin/    
  124.   #CC=    gcc -m486 -Wall # Generate code for Intel 486 (linux)
  125.   #CC=    cc
  126.   #CC=    occ
  127. --- 173,179 ----
  128.   
  129.   # The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which
  130.   # on the suns does not know how to make dynamically linked binaries.
  131. ! #CC=    gcc -Wall -B/bin/    
  132.   #CC=    gcc -m486 -Wall # Generate code for Intel 486 (linux)
  133.   #CC=    cc
  134.   #CC=    occ
  135. ***************
  136. *** 173,178 ****
  137. --- 182,190 ----
  138.   #CC=    /bin/cc    # For suns, w/o gcc and SVR4
  139.   #CC=    /usr/lib/sun.compile/cc  # FPS 500 (+FPX) with Sun C compiler
  140.   #CC=    scc     # Alliant fx2800
  141. + #CC=    $(CROSSBIN)/cgcc -Wall
  142. + CC=    gcc -mbaserel -Wall # generate shareable code for MiNT
  143. + 
  144.   ED=    ed
  145.   AS=    as
  146.   RM=    rm
  147. diff --context --new-file --recursive ../../store/tcsh-6.03/config.h ./config.h
  148. *** ../../store/tcsh-6.03/config.h
  149. --- ./config.h    Tue Feb 23 21:51:32 1993
  150. ***************
  151. *** 0 ****
  152. --- 1,125 ----
  153. + /*
  154. +  * config.h -- configure various defines for tcsh
  155. +  *
  156. +  * All source files should #include this FIRST.
  157. +  *
  158. +  * Edit this to match your system type.
  159. +  */
  160. + 
  161. + /****************** System dependant compilation flags ****************/
  162. + /*
  163. +  * POSIX    This system supports IEEE Std 1003.1-1988 (POSIX).
  164. +  */
  165. + #undef POSIX
  166. + 
  167. + /*
  168. +  * POSIXJOBS    This system supports the optional IEEE Std 1003.1-1988 (POSIX)
  169. +  *        job control facilities.
  170. +  */
  171. + #undef POSIXJOBS
  172. + 
  173. + /*
  174. +  * POSIXSIGS    Use the POSIX signal facilities to emulate BSD signals.
  175. +  */
  176. + #undef POSIXSIGS
  177. + 
  178. + /*
  179. +  * VFORK    This machine has a vfork().  
  180. +  *        It used to be that for job control to work, this define
  181. +  *        was mandatory. This is not the case any more.
  182. +  *        If you think you still need it, but you don't have vfork, 
  183. +  *        define this anyway and then do #define vfork fork.  
  184. +  *        I do this anyway on a Sun because of yellow pages brain damage,
  185. +  *        [should not be needed under 4.1]
  186. +  *        and on the iris4d cause    SGI's fork is sufficiently "virtual" 
  187. +  *        that vfork isn't necessary.  (Besides, SGI's vfork is weird).
  188. +  *        Note that some machines eg. rs6000 have a vfork, but not
  189. +  *        with the berkeley semantics, so we cannot use it there either.
  190. +  */
  191. + #define VFORK
  192. + 
  193. + /*
  194. +  * BSDJOBS    You have BSD-style job control (both process groups and
  195. +  *        a tty that deals correctly
  196. +  */
  197. + #define BSDJOBS
  198. + 
  199. + /*
  200. +  * BSDSIGS    You have 4.2-style signals, rather than USG style.
  201. +  *        Note: POSIX systems should not define this unless they
  202. +  *        have sigvec() and friends (ie: 4.3BSD-RENO, HP-UX).
  203. +  */
  204. + #define BSDSIGS
  205. + 
  206. + /*
  207. +  * BSDTIMES    You have BSD-style process time stuff (like rusage)
  208. +  *        This may or may not be true.  For example, Apple Unix
  209. +  *        (OREO) has BSDJOBS and BSDSIGS but not BSDTIMES.
  210. +  */
  211. + #define BSDTIMES
  212. + 
  213. + /*
  214. +  * BSDLIMIT    You have BSD-style resource limit stuff (getrlimit/setrlimit)
  215. +  */
  216. + #define BSDLIMIT
  217. + 
  218. + /*
  219. +  * BSDNICE    Your system uses setpriority() instead of nice, to
  220. +  *        change a processes scheduling priority
  221. +  */
  222. + #undef BSDNICE
  223. + 
  224. + /*
  225. +  * TERMIO    You have struct termio instead of struct sgttyb.
  226. +  *         This is usually the case for SYSV systems, where
  227. +  *        BSD uses sgttyb. POSIX systems should define this
  228. +  *        anyway, even though they use struct termios.
  229. +  */
  230. + #undef TERMIO
  231. + 
  232. + /*
  233. +  * SYSVREL    Your machine is SYSV based (HPUX, A/UX)
  234. +  *        NOTE: don't do this if you are on a Pyramid -- tcsh is
  235. +  *        built in a BSD universe.
  236. +  *        Set SYSVREL to 1, 2, 3, or 4, depending the version of System V
  237. +  *        you are running. Or set it to 0 if you are not SYSV based
  238. +  */
  239. + #define SYSVREL    0
  240. + 
  241. + /*
  242. +  * YPBUGS    Work around Sun YP bugs that cause expansion of ~username
  243. +  *        to send command output to /dev/null
  244. +  */
  245. + #undef YPBUGS
  246. + 
  247. + /*
  248. +  * SIGVOID    Define this if your signal handlers return void.  On older
  249. +  *        systems, signal returns int, but on newer ones, it returns void.
  250. +  */
  251. + #define SIGVOID 
  252. + 
  253. + /*
  254. +  * HAVEDUP2    Define this if your system supports dup2().
  255. +  */
  256. + #define HAVEDUP2
  257. + 
  258. + /*
  259. +  * UTHOST    Does the utmp file have a host field?
  260. +  */
  261. + #define UTHOST
  262. + 
  263. + /*
  264. +  * DIRENT    Your system has <dirent.h> instead of <sys/dir.h>
  265. +  */
  266. + #define DIRENT
  267. + /****************** local defines *********************/
  268. + 
  269. + #ifndef __MINT__
  270. + # define __MINT__
  271. + #endif
  272. + 
  273. + /****************** configurable hacks ****************/
  274. + /* have been moved to config_f.h */
  275. + #include "config_f.h"
  276. + 
  277. + #undef NLS
  278. diff --context --new-file --recursive ../../store/tcsh-6.03/config_f.h ./config_f.h
  279. *** ../../store/tcsh-6.03/config_f.h    Tue Nov 24 13:04:38 1992
  280. --- ./config_f.h    Thu Mar 11 00:37:34 1993
  281. ***************
  282. *** 56,62 ****
  283.    *        if you don't have <locale.h>, you don't want
  284.    *        to define this.
  285.    */
  286. ! #define NLS
  287.   
  288.   /*
  289.    * LOGINFIRST   Source ~/.login before ~/.cshrc
  290. --- 56,62 ----
  291.    *        if you don't have <locale.h>, you don't want
  292.    *        to define this.
  293.    */
  294. ! #undef NLS
  295.   
  296.   /*
  297.    * LOGINFIRST   Source ~/.login before ~/.cshrc
  298. ***************
  299. *** 90,96 ****
  300.    *        on the name of the tty, and environment.
  301.    *        Does not make sense in the modern window systems!
  302.    */
  303. ! #define AUTOLOGOUT
  304.   
  305.   /*
  306.    * SUSPENDED    Newer shells say 'Suspended' instead of 'Stopped'.
  307. --- 90,96 ----
  308.    *        on the name of the tty, and environment.
  309.    *        Does not make sense in the modern window systems!
  310.    */
  311. ! #undef AUTOLOGOUT
  312.   
  313.   /*
  314.    * SUSPENDED    Newer shells say 'Suspended' instead of 'Stopped'.
  315. ***************
  316. *** 116,121 ****
  317. --- 116,144 ----
  318.   # undef SYSMALLOC
  319.   #endif
  320.   
  321. + #if 1
  322. + # ifndef SYSMALLOC
  323. + #  define SYSMALLOC
  324. + # endif
  325. + #endif
  326. + 
  327. + /*
  328. +  * HASHBANG   Emulate #! interpretation (if both library and kernel don't
  329. +  *            support it)
  330. +  */
  331. + #define HASHBANG
  332. + 
  333. + /*
  334. +  * DOSFS      Support DOS filessystems (which have a 12345678.123 limit),
  335. +  *            and allow backslashes as path separators
  336. +  */
  337. + #define DOSFS
  338. + 
  339. + /*
  340. +  * DOSTEXT    Support DOS text mode/files (ignore 0x0d)
  341. +  */
  342. + #define DOSTEXT
  343. + 
  344.   /*
  345.    * RCSID    This defines if we want rcs strings in the binary or not
  346.    *
  347. diff --context --new-file --recursive ../../store/tcsh-6.03/ed.init.c ./ed.init.c
  348. *** ../../store/tcsh-6.03/ed.init.c    Tue Nov 24 13:04:28 1992
  349. --- ./ed.init.c    Thu Feb 25 04:30:40 1993
  350. ***************
  351. *** 626,631 ****
  352. --- 626,649 ----
  353.       char    buf[BUFSIZE];
  354.   
  355.       chrs = read(SHIN, buf, (size_t) min(chrs, BUFSIZE - 1));
  356. + 
  357. + # ifdef DOSTEXT
  358. +         /* strip out carriage returns */
  359. +         if (chrs > 0) {
  360. +                 char *src, *dst;
  361. +                 int i;
  362. + 
  363. +                 src = dst = buf;
  364. +                 for (i = chrs; i > 0; --i) {
  365. +                         if (*src == '\r')
  366. +                                 --chrs;
  367. +                         else
  368. +                                 *dst++ = *src;
  369. +                         src++;
  370. +                 }
  371. +         }
  372. + # endif
  373. + 
  374.       if (chrs > 0) {
  375.           buf[chrs] = '\0';
  376.           Input_Line = Strsave(str2short(buf));
  377. diff --context --new-file --recursive ../../store/tcsh-6.03/ed.inputl.c ./ed.inputl.c
  378. *** ../../store/tcsh-6.03/ed.inputl.c    Tue Nov 24 13:04:30 1992
  379. --- ./ed.inputl.c    Thu Feb 25 04:33:52 1993
  380. ***************
  381. *** 99,105 ****
  382.       if (!Tty_raw_mode && MacroLvl < 0) {
  383.       long    chrs = 0;
  384.   
  385. !     (void) ioctl(SHIN, FIONREAD, (ioctl_t) & chrs);
  386.       if (chrs == 0) {
  387.           if (Rawmode() < 0)
  388.           return 0;
  389. --- 99,111 ----
  390.       if (!Tty_raw_mode && MacroLvl < 0) {
  391.       long    chrs = 0;
  392.   
  393. ! # ifndef __MINT__
  394. ! /* MiNT _always_ wants to go into raw mode, so don't bother with the
  395. !  * FIONREAD test
  396. !  */
  397. !         (void) ioctl(SHIN, FIONREAD, (ioctl_t) & chrs);
  398. ! # endif
  399. ! 
  400.       if (chrs == 0) {
  401.           if (Rawmode() < 0)
  402.           return 0;
  403. diff --context --new-file --recursive ../../store/tcsh-6.03/pathnames.h ./pathnames.h
  404. *** ../../store/tcsh-6.03/pathnames.h    Tue Nov 24 13:04:38 1992
  405. --- ./pathnames.h    Thu Feb 25 04:36:08 1993
  406. ***************
  407. *** 69,74 ****
  408. --- 69,80 ----
  409.   # endif /* !_PATH_DOTCSHRC */
  410.   #endif /* NeXT */
  411.   
  412. + #ifdef DOSFS
  413. + # define _PATH_DOTLOGIN         "/etc/login.csh"
  414. + # define _PATH_DOTLOGOUT        "/etc/logout.csh"
  415. + # define _PATH_DOTCSHRC         "/etc/cshrc.csh"
  416. + #endif
  417. + 
  418.   #if defined(sgi) || defined(OREO) || defined(cray) || defined(AMIX) || defined(CDC)
  419.   # ifndef _PATH_DOTLOGIN
  420.   #  define _PATH_DOTLOGIN    "/etc/cshrc"
  421. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.c ./sh.c
  422. *** ../../store/tcsh-6.03/sh.c    Tue Nov 24 13:04:16 1992
  423. --- ./sh.c    Sun Mar  7 17:43:04 1993
  424. ***************
  425. *** 118,123 ****
  426. --- 118,128 ----
  427.   static    void          mailchk    __P((void));
  428.   static    Char         **defaultpath    __P((void));
  429.   
  430. + #ifdef __MINT__
  431. + static  Char            **defaultsuffixes __P((void));
  432. + void    importsuffixes  __P((Char *));
  433. + #endif
  434. + 
  435.   int
  436.   main(argc, argv)
  437.       int     argc;
  438. ***************
  439. *** 229,234 ****
  440. --- 234,249 ----
  441.       loginsh = (argc == 1 && getppid() == 1);
  442.   #endif /* _VMS_POSIX */
  443.   
  444. + #ifdef __MINT__
  445. +     /* under MiNT, we're also a login shell if we ran from the desktop and
  446. +      * have no arguments
  447. +      */
  448. +     if (!loginsh && tempv[0][0] == 0 && !tempv[1]) {
  449. +         loginsh = 1;
  450. +         tempv[0] = "-tcsh";
  451. +     }
  452. + #endif
  453. + 
  454.       if (loginsh && **tempv != '-') {
  455.       /*
  456.        * Mangle the argv space
  457. ***************
  458. *** 373,379 ****
  459.       if (loginsh || (uid == 0)) {
  460.       if (*cp) {
  461.           /* only for login shells or root and we must have a tty */
  462. !         if ((cp2 = Strrchr(cp, (Char) '/')) != NULL) {
  463.           cp = cp2 + 1;
  464.           }
  465.           if (!((Strncmp(cp, STRtty, 3) == 0) &&
  466. --- 388,394 ----
  467.       if (loginsh || (uid == 0)) {
  468.       if (*cp) {
  469.           /* only for login shells or root and we must have a tty */
  470. !         if ((cp2 = Lastslash(cp)) != NULL) {
  471.           cp = cp2 + 1;
  472.           }
  473.           if (!((Strncmp(cp, STRtty, 3) == 0) &&
  474. ***************
  475. *** 535,540 ****
  476. --- 550,564 ----
  477.        */
  478.       importpath(str2short(tcp));
  479.   
  480. + #ifdef __MINT__
  481. +     /*
  482. +      * set the suffix search list
  483. +      */
  484. +     if ((tcp = getenv("SUFFIXES")) == NULL)
  485. +         set1(STRsuffixes, defaultsuffixes(), &shvhed);
  486. +     else
  487. +         importsuffixes(SAVE(tcp));
  488. + #endif
  489.   
  490.       {
  491.       /* If the SHELL environment variable ends with "tcsh", set
  492. ***************
  493. *** 769,774 ****
  494. --- 793,808 ----
  495.        */
  496.       if (nofile == 0 && argc > 0) {
  497.       nofile = open(tempv[0], O_RDONLY);
  498. + #ifdef __MINT__
  499. +         /* maybe the user tried to execute "foo.csh" as just "foo"
  500. +          */
  501. +         if (nofile < 0) {
  502. +             char *cshfile = alloca(strlen(tempv[0]) + 5);
  503. +             strcpy(cshfile, tempv[0]);
  504. +             strcat(cshfile, ".csh");
  505. +             nofile = open(cshfile, O_RDONLY);
  506. +         }
  507. + #endif
  508.       if (nofile < 0) {
  509.           child = 1;        /* So this ... */
  510.           /* ... doesn't return */
  511. ***************
  512. *** 1165,1171 ****
  513.   srccat(cp, dp)
  514.       Char   *cp, *dp;
  515.   {
  516. !     if (cp[0] == '/' && cp[1] == '\0') 
  517.       return srcfile(short2str(dp), (mflag ? 0 : 1), 0, NULL);
  518.       else {
  519.       register Char *ep = Strspl(cp, dp);
  520. --- 1199,1205 ----
  521.   srccat(cp, dp)
  522.       Char   *cp, *dp;
  523.   {
  524. !     if (is_dirsep(cp[0]) && cp[1] == '\0') 
  525.       return srcfile(short2str(dp), (mflag ? 0 : 1), 0, NULL);
  526.       else {
  527.       register Char *ep = Strspl(cp, dp);
  528. ***************
  529. *** 1952,1957 ****
  530. --- 1986,1995 ----
  531.   #endif
  532.       int     i;
  533.   {
  534. + #ifdef __MINT__
  535. +     void rm_tmpfiles();
  536. +     rm_tmpfiles();                      /* remove temporary files, see below */
  537. + #endif
  538.   #ifdef TESLA
  539.       if (loginsh && do_logout) {
  540.       /* this is to send hangup signal to the develcon */
  541. ***************
  542. *** 2018,2020 ****
  543. --- 2056,2196 ----
  544.       *blkp = NULL;
  545.       return (blk);
  546.   }
  547. + 
  548. + #ifdef __MINT__
  549. + /*
  550. +  * unlink() doesn't always work on an open file, so we try to arrange
  551. +  * to remove temporary files (e.g. for here documents) before exiting.
  552. +  */
  553. + 
  554. + struct tmpfile_rec {
  555. +         char *name;     /* the name of the temp. file */
  556. +         int pid;        /* the associated pid */
  557. +         struct tmpfile_rec *next;
  558. + } *root;
  559. + 
  560. + extern int __mint;
  561. + 
  562. + int
  563. + csh_tmpfile()
  564. + {
  565. +         extern char *tmpnam();
  566. +         struct tmpfile_rec *u;
  567. +         int fd;
  568. +         char *name;
  569. + 
  570. +         if ( !(name = tmpnam((char *)0)) )
  571. +                 return -1;
  572. + 
  573. +         fd = open(name, O_CREAT|O_EXCL|O_RDWR, 0600);
  574. +         if (fd < 0) {
  575. +                 free(name);
  576. +                 return -1;
  577. +         }
  578. + 
  579. + /* in MiNT 0.9 and above, we can often unlink a file and continue to use
  580. +  * it; some file systems may return EACCDN for unlinking an open file,
  581. +  * in which case we use the old method of unlinking the file at exit
  582. +  */
  583. +         if (__mint >= 9) {
  584. +                 if (unlink(name) == 0)
  585. +                         return fd;
  586. +         }
  587. + 
  588. + /* if the unlink failed, save the name for future deleting */
  589. + 
  590. +         u = (struct tmpfile_rec *)malloc(sizeof(*u));
  591. +         if (!u) {
  592. + /* would it be better to fail? I dunno, but at worst the user is left
  593. +  * with a junk file in a temporary directory
  594. +  */
  595. +                 return fd;
  596. +         }
  597. + 
  598. +         u->name = name;
  599. +         u->pid = getpid();
  600. +         u->next = root;
  601. +         root = u;
  602. +         return fd;
  603. + }
  604. + 
  605. + void
  606. + rm_tmpfiles()
  607. + {
  608. +         int pid = getpid();
  609. +         struct tmpfile_rec **old, *u;
  610. + 
  611. +         old = &root;
  612. +         u = root;
  613. +         while (u) {
  614. +                 if (u->pid == pid) {
  615. +                         (void) unlink(u->name);
  616. +                         *old = u->next;
  617. +                 } else {
  618. +                         old = &u->next;
  619. +                 }
  620. +                 u = u->next;
  621. +         }
  622. + }
  623. + 
  624. + /* MiNT suffix stuff
  625. +  */
  626. + 
  627. + void
  628. + importsuffixes(cp)
  629. +     Char   *cp;
  630. + {
  631. +     register int i = 0;
  632. +     register Char *dp;
  633. +     register Char **pv;
  634. +     int     c;
  635. + 
  636. +     for (dp = cp; *dp; dp++)
  637. +         if (*dp == ',')
  638. +             i++;
  639. +     /*
  640. +      * i+2 where i is the number of ',' in the suffix list. There are i+1
  641. +      * suffixes plus we need room for a zero terminator.
  642. +      */
  643. +     pv = (Char **) xcalloc((size_t) (i + 2), sizeof(Char *));
  644. +     dp = cp;
  645. +     i = 0;
  646. +     if (*dp)
  647. +         for (;;) {
  648. +             if ((c = *dp) == ',' || c == 0) {
  649. +                 *dp = 0;
  650. +                 pv[i++] = Strsave(cp);
  651. +                 if (c) {
  652. +                     cp = dp + 1;
  653. +                     *dp = ',';
  654. +                 }
  655. +                 else
  656. +                     break;
  657. +             }
  658. +             dp++;
  659. +         }
  660. +     pv[i] = 0;
  661. +     set1(STRsuffixes, pv, &shvhed);
  662. + }
  663. + 
  664. + static Char **
  665. + defaultsuffixes()
  666. + {
  667. +     Char  **blk, **blkp;
  668. + 
  669. +     blkp = blk = (Char **) xmalloc((size_t) sizeof(Char *) * 9);
  670. + 
  671. +     *blkp++ = SAVE("ttp");
  672. +     *blkp++ = SAVE("prg");
  673. +     *blkp++ = SAVE("tos");
  674. +     *blkp++ = SAVE("app");
  675. +     *blkp++ = SAVE("gtp");
  676. +     *blkp++ = SAVE("csh");
  677. +     *blkp++ = SAVE("");
  678. +     *blkp = NULL;
  679. + 
  680. +     return (blk);
  681. + }
  682. + 
  683. + #endif /* __MINT__ */
  684. + 
  685. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.char.c ./sh.char.c
  686. *** ../../store/tcsh-6.03/sh.char.c    Tue Nov 24 13:04:18 1992
  687. --- ./sh.char.c    Thu Feb 25 04:57:24 1993
  688. ***************
  689. *** 51,58 ****
  690.       _CTR,        _CTR|_SP|_META,    _CTR|_NL|_META,    _CTR,
  691.   
  692.   /*     12 np         13 cr         14 so         15 si    */
  693. !     _CTR,        _CTR,        _CTR,        _CTR,
  694. ! 
  695.   /*     16 dle         17 dc1         18 dc2         19 dc3    */
  696.       _CTR,        _CTR,        _CTR,        _CTR,
  697.   
  698. --- 51,62 ----
  699.       _CTR,        _CTR|_SP|_META,    _CTR|_NL|_META,    _CTR,
  700.   
  701.   /*     12 np         13 cr         14 so         15 si    */
  702. ! #ifndef DOSTEXT
  703. !         _CTR,           _CTR,           _CTR,           _CTR,
  704. ! #else
  705. ! /* cr is whitespace */
  706. !         _CTR,           _CTR|_SP|_META, _CTR,           _CTR,
  707. ! #endif
  708.   /*     16 dle         17 dc1         18 dc2         19 dc3    */
  709.       _CTR,        _CTR,        _CTR,        _CTR,
  710.   
  711. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.dir.c ./sh.dir.c
  712. *** ../../store/tcsh-6.03/sh.dir.c    Tue Nov 24 13:04:18 1992
  713. --- ./sh.dir.c    Sun Mar  7 18:46:50 1993
  714. ***************
  715. *** 242,248 ****
  716.       len = Strlen(hp);
  717.       if (!(dflag & DIR_LONG) && hp != NULL && !eq(hp, STRslash) &&
  718.           Strncmp(hp, dp->di_name, len) == 0 &&
  719. !         (dp->di_name[len] == '\0' || dp->di_name[len] == '/')) 
  720.           len = Strlen(s = (dp->di_name + len)) + 2;
  721.       else
  722.           len = Strlen(s = dp->di_name) + 1;
  723. --- 242,248 ----
  724.       len = Strlen(hp);
  725.       if (!(dflag & DIR_LONG) && hp != NULL && !eq(hp, STRslash) &&
  726.           Strncmp(hp, dp->di_name, len) == 0 &&
  727. !         (dp->di_name[len] == '\0' || is_dirsep(dp->di_name[len])))
  728.           len = Strlen(s = (dp->di_name + len)) + 2;
  729.       else
  730.           len = Strlen(s = dp->di_name) + 1;
  731. ***************
  732. *** 301,308 ****
  733.   {
  734.   
  735.   /* return true if dp is of the form "../xxx" or "/../xxx" */
  736. ! #define IS_DOTDOT(sp, p) (ISDOTDOT(p) && ((p) == (sp) || *((p) - 1) == '/'))
  737. ! #define IS_DOT(sp, p) (ISDOT(p) && ((p) == (sp) || *((p) - 1) == '/'))
  738.   
  739.   #ifdef S_IFLNK
  740.       if (exp) {
  741. --- 301,308 ----
  742.   {
  743.   
  744.   /* return true if dp is of the form "../xxx" or "/../xxx" */
  745. ! #define IS_DOTDOT(sp, p) (ISDOTDOT(p) && ((p) == (sp) || is_dirsep(*((p) - 1))))
  746. ! #define IS_DOT(sp, p) (ISDOT(p) && ((p) == (sp) || is_dirsep(*((p) - 1))))
  747.   
  748.   #ifdef S_IFLNK
  749.       if (exp) {
  750. ***************
  751. *** 332,338 ****
  752.        * If the path starts with a slash, we are not relative to
  753.        * the current working directory.
  754.        */
  755. !     if ( *start == '/' )
  756.           *cwd = '\0';
  757.   # ifdef apollo
  758.       slashslash = cwd[0] == '/' && cwd[1] == '/';
  759. --- 332,338 ----
  760.        * If the path starts with a slash, we are not relative to
  761.        * the current working directory.
  762.        */
  763. !     if ( is_abspath(start) )
  764.           *cwd = '\0';
  765.   # ifdef apollo
  766.       slashslash = cwd[0] == '/' && cwd[1] == '/';
  767. ***************
  768. *** 363,369 ****
  769.   
  770.           *dp = '\0';
  771.           while (dotdot > 0) 
  772. !             if ((dp = Strrchr(cwd, '/')) != NULL) {
  773.   # ifdef apollo
  774.               if (dp == &cwd[1]) 
  775.                   slashslash = 1;
  776. --- 363,369 ----
  777.   
  778.           *dp = '\0';
  779.           while (dotdot > 0) 
  780. !             if ((dp = Lastslash(cwd)) != NULL) {
  781.   # ifdef apollo
  782.               if (dp == &cwd[1]) 
  783.                   slashslash = 1;
  784. ***************
  785. *** 391,403 ****
  786.   # endif /* apollo */
  787.   
  788.           if (buf[0]) {
  789. !             if ((TRM(cwd[(dotdot = Strlen(cwd)) - 1])) != '/')
  790.               cwd[dotdot++] = '/';
  791.               cwd[dotdot] = '\0';
  792. !             dp = Strspl(cwd, TRM(buf[0]) == '/' ? &buf[1] : buf);
  793.               xfree((ptr_t) cwd);
  794.               cwd = dp;
  795. !             if ((TRM(cwd[(dotdot = Strlen(cwd)) - 1])) == '/')
  796.               cwd[--dotdot] = '\0';
  797.           }
  798.           if (!*cp)
  799. --- 391,403 ----
  800.   # endif /* apollo */
  801.   
  802.           if (buf[0]) {
  803. !             if (! is_dirsep(TRM(cwd[(dotdot = Strlen(cwd)) - 1])))
  804.               cwd[dotdot++] = '/';
  805.               cwd[dotdot] = '\0';
  806. !             dp = Strspl(cwd, is_dirsep(TRM(buf[0])) ? &buf[1] : buf);
  807.               xfree((ptr_t) cwd);
  808.               cwd = dp;
  809. !             if (is_dirsep(TRM(cwd[(dotdot = Strlen(cwd)) - 1])))
  810.               cwd[--dotdot] = '\0';
  811.           }
  812.           if (!*cp)
  813. ***************
  814. *** 470,476 ****
  815.   {
  816.       Char   *dp;
  817.   
  818. !     if (*cp != '/') {
  819.       register Char *p, *q;
  820.       int     cwdlen;
  821.   
  822. --- 470,476 ----
  823.   {
  824.       Char   *dp;
  825.   
  826. !     if (! is_abspath(cp)) {
  827.       register Char *p, *q;
  828.       int     cwdlen;
  829.   
  830. ***************
  831. *** 547,553 ****
  832.       serrno = errno;
  833.       }
  834.   
  835. !     if (cp[0] != '/' && !prefix(STRdotsl, cp) && !prefix(STRdotdotsl, cp)
  836.       && (c = adrof(STRcdpath))) {
  837.       Char  **cdp;
  838.       register Char *p;
  839. --- 547,553 ----
  840.       serrno = errno;
  841.       }
  842.   
  843. !     if (!is_abspath(cp) && !prefix(STRdotsl, cp) && !prefix(STRdotdotsl, cp)
  844.       && (c = adrof(STRcdpath))) {
  845.       Char  **cdp;
  846.       register Char *p;
  847. ***************
  848. *** 578,584 ****
  849.       }
  850.       }
  851.       dp = value(cp);
  852. !     if ((dp[0] == '/' || dp[0] == '.') && chdir(short2str(dp)) >= 0) {
  853.       xfree((ptr_t) cp);
  854.       cp = Strsave(dp);
  855.       printd = 1;
  856. --- 578,584 ----
  857.       }
  858.       }
  859.       dp = value(cp);
  860. !     if ((is_abspath(dp) || dp[0] == '.') && chdir(short2str(dp)) >= 0) {
  861.       xfree((ptr_t) cp);
  862.       cp = Strsave(dp);
  863.       printd = 1;
  864. ***************
  865. *** 801,811 ****
  866.        * christos: if the path given does not start with a slash prepend cwd. If
  867.        * cwd does not start with a slash or the result would be too long abort().
  868.        */
  869. !     if (*cp != '/') {
  870.       Char    tmpdir[MAXPATHLEN];
  871.   
  872.       p1 = value(STRcwd);
  873. !     if (p1 == STRNULL || *p1 != '/')
  874.           abort();
  875.       if (Strlen(p1) + Strlen(cp) + 1 >= MAXPATHLEN)
  876.           abort();
  877. --- 801,811 ----
  878.        * christos: if the path given does not start with a slash prepend cwd. If
  879.        * cwd does not start with a slash or the result would be too long abort().
  880.        */
  881. !     if (! is_abspath(cp)) {
  882.       Char    tmpdir[MAXPATHLEN];
  883.   
  884.       p1 = value(STRcwd);
  885. !     if (p1 == STRNULL || !is_abspath(p1))
  886.           abort();
  887.       if (Strlen(p1) + Strlen(cp) + 1 >= MAXPATHLEN)
  888.           abort();
  889. ***************
  890. *** 817,823 ****
  891.       }
  892.   
  893.   #ifdef COMMENT
  894. !     if (*cp != '/')
  895.       abort();
  896.   #endif /* COMMENT */
  897.   
  898. --- 817,823 ----
  899.       }
  900.   
  901.   #ifdef COMMENT
  902. !     if (!is_abspath(cp))
  903.       abort();
  904.   #endif /* COMMENT */
  905.   
  906. ***************
  907. *** 827,833 ****
  908.   
  909.       while (*p) {        /* for each component */
  910.       sp = p;            /* save slash address */
  911. !     while (*++p == '/')    /* flush extra slashes */
  912.           continue;
  913.       if (p != ++sp)
  914.           for (p1 = sp, p2 = p; (*p1++ = *p2++) != '\0';)
  915. --- 827,833 ----
  916.   
  917.       while (*p) {        /* for each component */
  918.       sp = p;            /* save slash address */
  919. !     while (is_dirsep(*++p))    /* flush extra slashes */
  920.           continue;
  921.       if (p != ++sp)
  922.           for (p1 = sp, p2 = p; (*p1++ = *p2++) != '\0';)
  923. ***************
  924. *** 835,841 ****
  925.       p = sp;            /* save start of component */
  926.       slash = 0;
  927.       while (*++p)        /* find next slash or end of path */
  928. !         if (*p == '/') {
  929.           slash = 1;
  930.           *p = 0;
  931.           break;
  932. --- 835,841 ----
  933.       p = sp;            /* save start of component */
  934.       slash = 0;
  935.       while (*++p)        /* find next slash or end of path */
  936. !         if (is_dirsep(*p)) {
  937.           slash = 1;
  938.           *p = 0;
  939.           break;
  940. ***************
  941. *** 885,896 ****
  942.            */
  943.           for (p1 = p; *p1++;)
  944.               continue;
  945. !         if (*link != '/') {
  946.               /*
  947.                * Relative path, expand it between the "yyy/" and the
  948.                * "/..". First, back sp up to the character past "yyy/".
  949.                */
  950. !             while (*--sp != '/')
  951.               continue;
  952.               sp++;
  953.               *sp = 0;
  954. --- 885,896 ----
  955.            */
  956.           for (p1 = p; *p1++;)
  957.               continue;
  958. !         if (! is_abspath(link)) {
  959.               /*
  960.                * Relative path, expand it between the "yyy/" and the
  961.                * "/..". First, back sp up to the character past "yyy/".
  962.                */
  963. !             while (!is_dirsep(*--sp))
  964.               continue;
  965.               sp++;
  966.               *sp = 0;
  967. ***************
  968. *** 942,948 ****
  969.   #endif /* S_IFLNK */
  970.           *sp = '/';
  971.           if (sp != cp)
  972. !         while (*--sp != '/')
  973.               continue;
  974.           if (slash) {
  975.           for (p1 = sp + 1, p2 = p + 1; (*p1++ = *p2++) != '\0';)
  976. --- 942,948 ----
  977.   #endif /* S_IFLNK */
  978.           *sp = '/';
  979.           if (sp != cp)
  980. !         while (!is_dirsep(*--sp))
  981.               continue;
  982.           if (slash) {
  983.           for (p1 = sp + 1, p2 = p + 1; (*p1++ = *p2++) != '\0';)
  984. ***************
  985. *** 979,991 ****
  986.            */
  987.           for (p1 = p; *p1++;)
  988.               continue;
  989. !         if (*link != '/') {
  990.               /*
  991.                * Relative path, expand it between the "yyy/" and the
  992.                * remainder. First, back sp up to the character past
  993.                * "yyy/".
  994.                */
  995. !             while (*--sp != '/')
  996.               continue;
  997.               sp++;
  998.               *sp = 0;
  999. --- 979,991 ----
  1000.            */
  1001.           for (p1 = p; *p1++;)
  1002.               continue;
  1003. !         if (! is_abspath(link)) {
  1004.               /*
  1005.                * Relative path, expand it between the "yyy/" and the
  1006.                * remainder. First, back sp up to the character past
  1007.                * "yyy/".
  1008.                */
  1009. !             while (! is_dirsep(*--sp))
  1010.               continue;
  1011.               sp++;
  1012.               *sp = 0;
  1013. ***************
  1014. *** 1049,1056 ****
  1015.       /*
  1016.        * See if we're not in a subdir of STRhome
  1017.        */
  1018. !     if (p1 && *p1 == '/' &&
  1019. !     (Strncmp(p1, cp, cc) != 0 || (cp[cc] != '/' && cp[cc] != '\0'))) {
  1020.       static ino_t home_ino = (ino_t) -1;
  1021.       static dev_t home_dev = -1;
  1022.       static Char *home_ptr = NULL;
  1023. --- 1049,1056 ----
  1024.       /*
  1025.        * See if we're not in a subdir of STRhome
  1026.        */
  1027. !     if (p1 && is_abspath(p1) &&
  1028. !     (Strncmp(p1, cp, cc) != 0 || (!is_dirsep(cp[cc]) && cp[cc] != '\0'))) {
  1029.       static ino_t home_ino = (ino_t) -1;
  1030.       static dev_t home_dev = -1;
  1031.       static Char *home_ptr = NULL;
  1032. ***************
  1033. *** 1075,1081 ****
  1034.               sp = (Char *) - 1;
  1035.               break;
  1036.           }
  1037. !         if ((sp = Strrchr(p2, '/')) != NULL)
  1038.           *sp = '\0';
  1039.       }
  1040.       /*
  1041. --- 1075,1081 ----
  1042.               sp = (Char *) - 1;
  1043.               break;
  1044.           }
  1045. !         if ((sp = Lastslash(p2)) != NULL)
  1046.           *sp = '\0';
  1047.       }
  1048.       /*
  1049. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.dol.c ./sh.dol.c
  1050. *** ../../store/tcsh-6.03/sh.dol.c    Tue Nov 24 13:04:18 1992
  1051. --- ./sh.dol.c    Thu Feb 25 05:37:04 1993
  1052. ***************
  1053. *** 480,485 ****
  1054. --- 480,491 ----
  1055.       if (length)
  1056.           stderror(ERR_NOTALLOWED, "$%<");
  1057.       for (np = wbuf; read(OLDSTD, &tnp, 1) == 1; np++) {
  1058. + #ifdef DOSTEXT
  1059. +             /* strip out cr's */
  1060. +             while (tnp == '\r') {
  1061. +                 if (read(OLDSTD, &tnp, 1) != 1) break;
  1062. +             }
  1063. + #endif
  1064.           *np = (unsigned char) tnp;
  1065.           if (np >= &wbuf[BUFSIZE - 1])
  1066.           stderror(ERR_LTOOLONG);
  1067. ***************
  1068. *** 940,945 ****
  1069. --- 946,961 ----
  1070.       register Char *lbp, *obp, *mbp;
  1071.       Char  **vp;
  1072.       bool    quoted;
  1073. + #ifdef __MINT__
  1074. +     int tf;
  1075. +     extern int csh_tmpfile __P((void));   /* in sh.c */
  1076. + 
  1077. +     tf = csh_tmpfile();
  1078. +     if (tf < 0)
  1079. +         stderror(ERR_SYSTEM, "tmpfile", strerror(errno));
  1080. +     (void)dup2(tf, 0);
  1081. +     (void)close(tf);
  1082. + #else
  1083.       char   *tmp;
  1084.   
  1085.       if (creat(tmp = short2str(shtemp), 0600) < 0)
  1086. ***************
  1087. *** 953,958 ****
  1088. --- 969,976 ----
  1089.       stderror(ERR_SYSTEM, tmp, strerror(errno));
  1090.       }
  1091.       (void) unlink(tmp);        /* 0 0 inode! */
  1092. + #endif /* __MINT__ */
  1093. + 
  1094.       Dv[0] = term;
  1095.       Dv[1] = NULL;
  1096.       gflag = 0;
  1097. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.exec.c ./sh.exec.c
  1098. *** ../../store/tcsh-6.03/sh.exec.c    Tue Nov 24 13:04:18 1992
  1099. --- ./sh.exec.c    Wed Mar 10 08:54:36 1993
  1100. ***************
  1101. *** 49,54 ****
  1102. --- 49,60 ----
  1103.   # define FASTHASH    /* Fast hashing is the default */
  1104.   #endif /* OLDHASH */
  1105.   
  1106. + #ifdef __MINT__
  1107. + extern char **environ;
  1108. + int     csh_execve      __P((char *, char **, char **));
  1109. + #define execv(f, t) csh_execve(f, t, environ)
  1110. + #endif
  1111. + 
  1112.   /*
  1113.    * System level search and execute of a command.
  1114.    * We look in each directory for the specified command name.
  1115. ***************
  1116. *** 180,190 ****
  1117.   #endif /* VFORK */
  1118.   
  1119.       v = adrof(STRpath);
  1120. !     if (v == 0 && expath[0] != '/') {
  1121.       blkfree(pv);
  1122.       pexerr();
  1123.       }
  1124. !     slash = any(short2str(expath), '/');
  1125.   
  1126.       /*
  1127.        * Glob the argument list, if necessary. Otherwise trim off the quote bits.
  1128. --- 186,196 ----
  1129.   #endif /* VFORK */
  1130.   
  1131.       v = adrof(STRpath);
  1132. !     if (v == 0 && !is_abspath(expath)) {
  1133.       blkfree(pv);
  1134.       pexerr();
  1135.       }
  1136. !     slash = has_slash(short2str(expath));
  1137.   
  1138.       /*
  1139.        * Glob the argument list, if necessary. Otherwise trim off the quote bits.
  1140. ***************
  1141. *** 266,272 ****
  1142.        * one at a time, as the user enters them.  This is kinda like Korn
  1143.        * Shell's "tracked aliases".
  1144.        */
  1145. !     if (!slash && pv[0][0] == '/' && havhash) {
  1146.   #ifdef FASTHASH
  1147.           if (!bit(hashval, i))
  1148.           goto cont;
  1149. --- 272,278 ----
  1150.        * one at a time, as the user enters them.  This is kinda like Korn
  1151.        * Shell's "tracked aliases".
  1152.        */
  1153. !     if (!slash && is_abspath(pv[0]) && havhash) {
  1154.   #ifdef FASTHASH
  1155.           if (!bit(hashval, i))
  1156.           goto cont;
  1157. ***************
  1158. *** 421,427 ****
  1159. --- 427,438 ----
  1160.        */
  1161.       if ((fd = open(f, O_RDONLY)) != -1) {
  1162.           if (read(fd, (char *) pref, 2) == 2) {
  1163. + #ifndef DOSTEXT
  1164.           if (!Isprint(pref[0]) && (pref[0] != '\n' && pref[0] != '\t')) {
  1165. + #else
  1166. +         if (!Isprint(pref[0]) && (pref[0] != '\n' && pref[0] != '\t'
  1167. +                                   && pref[0] != '\r')) {
  1168. + #endif
  1169.               (void) close(fd);
  1170.               /*
  1171.                * We *know* what ENOEXEC means.
  1172. ***************
  1173. *** 637,642 ****
  1174. --- 648,657 ----
  1175.       struct varent *v = adrof(STRpath);
  1176.       Char  **pv;
  1177.       int hashval;
  1178. + #ifdef __MINT__
  1179. +     struct varent *suffv = adrof(STRsuffixes);
  1180. +     Char **suffpv;
  1181. + #endif
  1182.   
  1183.   #ifdef FASTHASH
  1184.       if (vv && vv[1]) {
  1185. ***************
  1186. *** 677,683 ****
  1187.       if (v == NULL)
  1188.       return;
  1189.       for (pv = v->vec; *pv; pv++, i++) {
  1190. !     if (pv[0][0] != '/')
  1191.           continue;
  1192.       dirp = opendir(short2str(*pv));
  1193.       if (dirp == NULL)
  1194. --- 692,698 ----
  1195.       if (v == NULL)
  1196.       return;
  1197.       for (pv = v->vec; *pv; pv++, i++) {
  1198. !     if (! is_abspath(pv[0]))
  1199.           continue;
  1200.       dirp = opendir(short2str(*pv));
  1201.       if (dirp == NULL)
  1202. ***************
  1203. *** 696,701 ****
  1204. --- 711,729 ----
  1205.           (dp->d_name[1] == '\0' ||
  1206.            (dp->d_name[1] == '.' && dp->d_name[2] == '\0')))
  1207.           continue;
  1208. + #ifdef __MINT__
  1209. +             {   char *s = rindex(dp->d_name, '.');
  1210. + 
  1211. +                 if (s && suffv) {
  1212. +                     for (suffpv = suffv->vec; *suffpv; suffpv++) {
  1213. +                         if (!strcmp(s+1, short2str(*suffpv))) {
  1214. +                             *s = 0; break;
  1215. +                         }
  1216. +                     }
  1217. +                 }
  1218. +             }
  1219. + #endif /* __MINT__ */
  1220. + 
  1221.   #ifdef FASTHASH
  1222.           hashval = hashname(str2short(dp->d_name));
  1223.           bis(hashval, i);
  1224. ***************
  1225. *** 769,775 ****
  1226.       register Char **pv;
  1227.       register Char *sav;
  1228.       register struct varent *v;
  1229. !     register bool slash = any(short2str(name), '/');
  1230.       register int hashval, i;
  1231.   
  1232.       v = adrof(STRpath);
  1233. --- 797,803 ----
  1234.       register Char **pv;
  1235.       register Char *sav;
  1236.       register struct varent *v;
  1237. !     register bool slash = has_slash(short2str(name));
  1238.       register int hashval, i;
  1239.   
  1240.       v = adrof(STRpath);
  1241. ***************
  1242. *** 781,787 ****
  1243.       hashval = havhash ? hashname(name) : 0;
  1244.       i = 0;
  1245.       do {
  1246. !     if (!slash && pv[0][0] == '/' && havhash) {
  1247.   #ifdef FASTHASH
  1248.           if (!bit(hashval, i))
  1249.           goto cont;
  1250. --- 809,815 ----
  1251.       hashval = havhash ? hashname(name) : 0;
  1252.       i = 0;
  1253.       do {
  1254. !     if (!slash && is_abspath(pv[0]) && havhash) {
  1255.   #ifdef FASTHASH
  1256.           if (!bit(hashval, i))
  1257.           goto cont;
  1258. ***************
  1259. *** 827,832 ****
  1260. --- 855,912 ----
  1261.    * if dir_ok is set and the pathname refers to a directory.
  1262.    * This is a bit kludgy, but in the name of optimization...
  1263.    */
  1264. + #ifdef __MINT__
  1265. + int
  1266. + executable(dir, name, dir_ok)
  1267. +     Char   *dir, *name;
  1268. +     bool    dir_ok;
  1269. + {
  1270. +     char *ext, *base;
  1271. +     struct stat stbuf;
  1272. +     Char    path[MAXPATHLEN + 1];
  1273. +     char   *strname;
  1274. +     struct varent *v;
  1275. +     Char **pv;
  1276. + 
  1277. +     if (dir && *dir) {
  1278. +         copyn(path, dir, MAXPATHLEN);
  1279. +         catn(path, name, MAXPATHLEN);
  1280. +         strname = short2str(path);
  1281. +     }
  1282. +     else
  1283. +         strname = short2str(name);
  1284. + 
  1285. +     ext = base = alloca(strlen(strname) + 5);
  1286. +     while (*strname)
  1287. +         *ext++ = *strname++;
  1288. + 
  1289. +     *ext = 0;
  1290. + 
  1291. +     if (stat(base, &stbuf) != -1 &&
  1292. +         ((dir_ok && S_ISDIR(stbuf.st_mode)) ||
  1293. +           (S_ISREG(stbuf.st_mode) &&
  1294. +           ((stbuf.st_mode & (S_IXOTH|S_IXGRP|S_IXUSR))))))
  1295. +                 return 1;
  1296. + 
  1297. +     if (dir_ok) return 0;
  1298. + 
  1299. +     v = adrof(STRsuffixes);
  1300. +     if (v == 0) return 0;
  1301. + 
  1302. +     *ext++ = '.';
  1303. +     for (pv = v->vec; *pv; pv++) {
  1304. +         strcpy(ext, short2str(*pv));
  1305. +         if (stat(base, &stbuf) != -1 &&
  1306. +             (S_ISREG(stbuf.st_mode) &&
  1307. +              ((stbuf.st_mode & (S_IXOTH|S_IXGRP|S_IXUSR)) ||
  1308. +               !strcmp(ext, "csh"))))
  1309. +                return 1;
  1310. +     }
  1311. +     return 0;
  1312. + }
  1313. + 
  1314. + #else /* __MINT__ */
  1315. + 
  1316.   int
  1317.   executable(dir, name, dir_ok)
  1318.       Char   *dir, *name;
  1319. ***************
  1320. *** 851,856 ****
  1321. --- 931,937 ----
  1322.             (stbuf.st_mode & (S_IXOTH | S_IXGRP | S_IXUSR)) &&
  1323.             access(strname, X_OK) == 0)));
  1324.   }
  1325. + #endif /* __MINT__ */
  1326.   
  1327.   void
  1328.   tellmewhat(lex)
  1329. ***************
  1330. *** 910,916 ****
  1331.       if ((i = iscommand(strip(sp->word))) != 0) {
  1332.       register Char **pv;
  1333.       register struct varent *v;
  1334. !     bool    slash = any(short2str(sp->word), '/');
  1335.   
  1336.       v = adrof(STRpath);
  1337.       if (v == 0 || v->vec[0] == 0 || slash)
  1338. --- 991,997 ----
  1339.       if ((i = iscommand(strip(sp->word))) != 0) {
  1340.       register Char **pv;
  1341.       register struct varent *v;
  1342. !     bool    slash = has_slash(short2str(sp->word));
  1343.   
  1344.       v = adrof(STRpath);
  1345.       if (v == 0 || v->vec[0] == 0 || slash)
  1346. ***************
  1347. *** 975,981 ****
  1348.       Char *sv;
  1349.       int hashval, i, ex, rval = 0;
  1350.   
  1351. !     if (prt && any(short2str(cmd), '/')) {
  1352.       xprintf("where: / in command makes no sense\n");
  1353.       return 0;
  1354.       }
  1355. --- 1056,1062 ----
  1356.       Char *sv;
  1357.       int hashval, i, ex, rval = 0;
  1358.   
  1359. !     if (prt && has_slash(short2str(cmd))) {
  1360.       xprintf("where: / in command makes no sense\n");
  1361.       return 0;
  1362.       }
  1363. ***************
  1364. *** 1042,1044 ****
  1365. --- 1123,1163 ----
  1366.       xfree((ptr_t) sv);
  1367.       return rval;
  1368.   }
  1369. + 
  1370. + #ifdef __MINT__
  1371. + 
  1372. + #include <process.h>
  1373. + 
  1374. + int
  1375. + csh_execve(path, argv, envp)
  1376. +         char *path;
  1377. +         char **argv, **envp;
  1378. + {
  1379. +         char *newpath, *s;
  1380. +         Char **pv;
  1381. +         struct varent *v;
  1382. + 
  1383. +         newpath = s = alloca(strlen(path) + 5);
  1384. +         while (*path) {
  1385. +                 *s++ = *path++;
  1386. +         }
  1387. +         *s = 0;
  1388. + 
  1389. +         if (access(newpath, 0) == 0)
  1390. +                 return _spawnve(P_OVERLAY, newpath, argv, envp);
  1391. + 
  1392. +         v = adrof(STRsuffixes);
  1393. +         if (v == 0)
  1394. +                 return -1;
  1395. +         *s++ = '.';
  1396. + 
  1397. +         for (pv = v->vec; *pv; pv++) {
  1398. +                 strcpy(s, short2str(*pv));
  1399. +                 if (access(newpath, 0) == 0) {
  1400. +                         return _spawnve(P_OVERLAY, newpath, argv, envp);
  1401. +                 }
  1402. +         }
  1403. +         return -1;
  1404. + }
  1405. + #endif /* __MINT__ */
  1406. + 
  1407. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.file.c ./sh.file.c
  1408. *** ../../store/tcsh-6.03/sh.file.c    Tue Nov 24 13:04:18 1992
  1409. --- ./sh.file.c    Fri Feb 26 01:26:22 1993
  1410. ***************
  1411. *** 407,413 ****
  1412.       if (old[0] != '~')
  1413.       return (Strcpy(new, old));
  1414.   
  1415. !     for (p = person, o = &old[1]; *o && *o != '/'; *p++ = *o++);
  1416.       *p = '\0';
  1417.       if (person[0] == '\0')
  1418.       (void) Strcpy(new, value(STRhome));
  1419. --- 407,413 ----
  1420.       if (old[0] != '~')
  1421.       return (Strcpy(new, old));
  1422.   
  1423. !     for (p = person, o = &old[1]; *o && !is_dirsep(*o); *p++ = *o++);
  1424.       *p = '\0';
  1425.       if (person[0] == '\0')
  1426.       (void) Strcpy(new, value(STRhome));
  1427. ***************
  1428. *** 502,508 ****
  1429.   {
  1430.       register Char *p;
  1431.   
  1432. !     p = Strrchr(path, '/');
  1433.       if (p == NULL) {
  1434.       copyn(name, path, MAXNAMLEN);
  1435.       dir[0] = '\0';
  1436. --- 502,508 ----
  1437.   {
  1438.       register Char *p;
  1439.   
  1440. !     p = Lastslash(path);
  1441.       if (p == NULL) {
  1442.       copyn(name, path, MAXNAMLEN);
  1443.       dir[0] = '\0';
  1444. ***************
  1445. *** 590,596 ****
  1446.       if (items != NULL)
  1447.       FREE_ITEMS(items);
  1448.   
  1449. !     looking_for_lognames = (*word == '~') && (Strchr(word, '/') == NULL);
  1450.       if (looking_for_lognames) {
  1451.   #ifndef _VMS_POSIX
  1452.       (void) setpwent();
  1453. --- 590,596 ----
  1454.       if (items != NULL)
  1455.       FREE_ITEMS(items);
  1456.   
  1457. !     looking_for_lognames = (*word == '~') && (Has_slash(word) == NULL);
  1458.       if (looking_for_lognames) {
  1459.   #ifndef _VMS_POSIX
  1460.       (void) setpwent();
  1461. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.func.c ./sh.func.c
  1462. *** ../../store/tcsh-6.03/sh.func.c    Tue Nov 24 13:04:20 1992
  1463. --- ./sh.func.c    Fri Feb 26 01:32:22 1993
  1464. ***************
  1465. *** 66,71 ****
  1466. --- 66,75 ----
  1467.   static    void    toend        __P((void));
  1468.   static    void    xecho        __P((int, Char **));
  1469.   
  1470. + #ifdef __MINT__
  1471. + extern  void    importsuffixes  __P((Char *));  /* in sh.c */
  1472. + #endif
  1473. + 
  1474.   struct biltins *
  1475.   isbfunc(t)
  1476.       struct command *t;
  1477. ***************
  1478. *** 276,282 ****
  1479. --- 280,297 ----
  1480.       islogin();
  1481.       rechist(NULL);
  1482.       (void) signal(SIGTERM, parterm);
  1483. + #ifdef __MINT__
  1484. +     {
  1485. +         extern int csh_execve __P((char *, char **, char **)); /* in sh.exec.c */
  1486. +         extern char **environ;
  1487. +         char *args[3];
  1488. + 
  1489. +         args[0] = "login"; args[1] = short2str(v[1]); args[2] = NULL;
  1490. +         (void)csh_execve(_PATH_LOGIN, args, environ);
  1491. +     }
  1492. + #else
  1493.       (void) execl(_PATH_LOGIN, "login", short2str(v[1]), NULL);
  1494. + #endif
  1495.       untty();
  1496.       xexit(1);
  1497.   }
  1498. ***************
  1499. *** 1190,1195 ****
  1500. --- 1205,1216 ----
  1501.       importpath(lp);
  1502.       dohash(NULL, NULL);
  1503.       }
  1504. + #ifdef __MINT__
  1505. +     else if (eq(vp, STRSUFFIXES)) {
  1506. +         importsuffixes(lp);
  1507. +         dohash(NULL, NULL);
  1508. +     }
  1509. + #endif /* __MINT__ */
  1510.   #ifdef apollo
  1511.       else if (eq(vp, STRSYSTYPE))
  1512.       dohash(NULL, NULL);
  1513. ***************
  1514. *** 1313,1318 ****
  1515. --- 1334,1343 ----
  1516.   
  1517.           if (eq(name, STRNOREBIND))
  1518.               NoNLSRebind = 0;
  1519. + #ifdef __MINT__
  1520. +                 else if (eq(name, STRSUFFIXES))
  1521. +                     dohash(NULL, NULL);
  1522. + #endif
  1523.   #ifdef apollo
  1524.           else if (eq(name, STRSYSTYPE))
  1525.               dohash(NULL, NULL);
  1526. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.glob.c ./sh.glob.c
  1527. *** ../../store/tcsh-6.03/sh.glob.c    Tue Nov 24 13:04:20 1992
  1528. --- ./sh.glob.c    Sun Mar  7 18:17:44 1993
  1529. ***************
  1530. *** 97,103 ****
  1531.       *gstart++ = *s++;
  1532.       u = s;
  1533.       for (b = gstart, e = &gbuf[BUFSIZE - 1]; 
  1534. !      *s && *s != '/' && *s != ':' && b < e;
  1535.        *b++ = *s++)
  1536.       continue;
  1537.       *b = EOS;
  1538. --- 97,103 ----
  1539.       *gstart++ = *s++;
  1540.       u = s;
  1541.       for (b = gstart, e = &gbuf[BUFSIZE - 1]; 
  1542. !      *s && !is_dirsep(*s) && *s != ':' && b < e;
  1543.        *b++ = *s++)
  1544.       continue;
  1545.       *b = EOS;
  1546. ***************
  1547. *** 135,141 ****
  1548.        * kfk - 17 Jan 1984 - stack hack allows user to get at arbitrary dir names
  1549.        * in stack. PWP: let =foobar pass through (for X windows)
  1550.        */
  1551. !     if (old[1] == '-' && (old[2] == '\0' || old[2] == '/')) {
  1552.       /* =- */
  1553.       dig = -1;
  1554.       b = &old[2];
  1555. --- 135,141 ----
  1556.        * kfk - 17 Jan 1984 - stack hack allows user to get at arbitrary dir names
  1557.        * in stack. PWP: let =foobar pass through (for X windows)
  1558.        */
  1559. !     if (old[1] == '-' && (old[2] == '\0' || is_dirsep(old[2]))) {
  1560.       /* =- */
  1561.       dig = -1;
  1562.       b = &old[2];
  1563. ***************
  1564. *** 145,151 ****
  1565.       dig = old[1] - '0';
  1566.       for (b = &old[2]; Isdigit(*b); b++)
  1567.           dig = dig * 10 + (*b - '0');
  1568. !     if (*b != '\0' && *b != '/')
  1569.           /* =<number>foobar */
  1570.           return old;
  1571.       }
  1572. --- 145,151 ----
  1573.       dig = old[1] - '0';
  1574.       for (b = &old[2]; Isdigit(*b); b++)
  1575.           dig = dig * 10 + (*b - '0');
  1576. !     if (*b != '\0' && !is_dirsep(*b))
  1577.           /* =<number>foobar */
  1578.           return old;
  1579.       }
  1580. ***************
  1581. *** 674,680 ****
  1582.           else if (isglob(*c))
  1583.           gflag |= G_GLOB;
  1584.           else if (symlinks == SYM_EXPAND && 
  1585. !         *p && ISDOTDOT(c) && (c == *(t-1) || *(c-1) == '/') )
  1586.               gflag |= G_CSH;
  1587.       }
  1588.       }
  1589. --- 674,680 ----
  1590.           else if (isglob(*c))
  1591.           gflag |= G_GLOB;
  1592.           else if (symlinks == SYM_EXPAND && 
  1593. !         *p && ISDOTDOT(c) && (c == *(t-1) || is_dirsep(*(c-1))) )
  1594.               gflag |= G_CSH;
  1595.       }
  1596.       }
  1597. ***************
  1598. *** 834,839 ****
  1599. --- 834,855 ----
  1600.           do
  1601.               icnt = read(pvec[0], tibuf, BUFSIZE);
  1602.           while (icnt == -1 && errno == EINTR);
  1603. + #ifdef DOSTEXT
  1604. +                 /* strip out carriage returns */
  1605. +                 {
  1606. +                         char *src, *dst;
  1607. +                         int i;
  1608. +                         src = dst = tibuf;
  1609. + 
  1610. +                         for (i = icnt; i > 0; --i) {
  1611. +                                 if (*src == '\r')
  1612. +                                         --icnt;
  1613. +                                 else
  1614. +                                         *dst++ = *src;
  1615. +                                 src++;
  1616. +                         }
  1617. +                 }
  1618. + #endif
  1619.           if (icnt <= 0) {
  1620.               c = -1;
  1621.               break;
  1622. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.h ./sh.h
  1623. *** ../../store/tcsh-6.03/sh.h    Tue Nov 24 13:04:24 1992
  1624. --- ./sh.h    Fri Feb 26 01:46:40 1993
  1625. ***************
  1626. *** 177,183 ****
  1627.   #ifdef _SEQUENT_
  1628.   # include <sys/procstats.h>
  1629.   #endif /* _SEQUENT_ */
  1630. ! #if defined(POSIX) || SYSVREL > 0
  1631.   # include <sys/times.h>
  1632.   #endif /* POSIX || SYSVREL > 0 */
  1633.   
  1634. --- 177,183 ----
  1635.   #ifdef _SEQUENT_
  1636.   # include <sys/procstats.h>
  1637.   #endif /* _SEQUENT_ */
  1638. ! #if defined(POSIX) || SYSVREL > 0 || defined(__MINT__)
  1639.   # include <sys/times.h>
  1640.   #endif /* POSIX || SYSVREL > 0 */
  1641.   
  1642. ***************
  1643. *** 190,195 ****
  1644. --- 190,199 ----
  1645.   #endif /* _MINIX && vmsposix atp */
  1646.   #include <sys/stat.h>
  1647.   
  1648. + #ifdef __MINT__
  1649. + #include <support.h>
  1650. + #endif
  1651. + 
  1652.   #if defined(BSDTIMES) || defined(BSDLIMIT)
  1653.   # include <sys/time.h>
  1654.   # if SYSVREL>3 && !defined(sgi)
  1655. ***************
  1656. *** 223,229 ****
  1657.   # include <sys/ttold.h>
  1658.   #endif /* sonyrisc */
  1659.   
  1660. ! #ifdef POSIX
  1661.   /*
  1662.    * We should be using setpgid and setpgid
  1663.    * by now, but in some systems we use the
  1664. --- 227,233 ----
  1665.   # include <sys/ttold.h>
  1666.   #endif /* sonyrisc */
  1667.   
  1668. ! #if defined(POSIX) || defined(__MINT__)
  1669.   /*
  1670.    * We should be using setpgid and setpgid
  1671.    * by now, but in some systems we use the
  1672. ***************
  1673. *** 289,294 ****
  1674. --- 293,305 ----
  1675.   
  1676.   #include <errno.h>
  1677.   
  1678. + #ifdef __MINT__
  1679. + /* undef E_SEEK from errno.h */
  1680. + # undef E_SEEK
  1681. + # define ENOTDIR EPATH
  1682. + # define ESPIPE EINVAL
  1683. + #endif
  1684. + 
  1685.   #include <setjmp.h>
  1686.   
  1687.   #if __STDC__
  1688. ***************
  1689. *** 353,358 ****
  1690. --- 364,384 ----
  1691.   # endif 
  1692.   #endif 
  1693.   
  1694. + #ifndef DOSFS
  1695. + # define is_dirsep(c)   ((c) == '/')
  1696. + # define is_abspath(p)  (is_dirsep(*(p)))
  1697. + # define lastslash(p)   (strrchr((p), '/'))
  1698. + # define Lastslash(p)   (Strrchr((p), '/'))
  1699. + # define has_slash(p)   (any((p), '/'))
  1700. + # define Has_slash(p)   (Strrchr((p), '/'))
  1701. + #else
  1702. + extern int      is_dirsep       __P((int));
  1703. + extern int      is_abspath      __P((Char *));
  1704. + extern char *   lastslash       __P((char *));
  1705. + extern Char *   Lastslash       __P((Char *));
  1706. + extern int      has_slash       __P((char *));
  1707. + extern int      Has_slash       __P((Char *));
  1708. + #endif
  1709.   
  1710.   typedef int bool;
  1711.   
  1712. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.lex.c ./sh.lex.c
  1713. *** ../../store/tcsh-6.03/sh.lex.c    Tue Nov 24 13:04:20 1992
  1714. --- ./sh.lex.c    Fri Feb 26 02:05:56 1993
  1715. ***************
  1716. *** 430,436 ****
  1717.       for (;;) {
  1718.       if ((c = peekc) != 0) {
  1719.           peekc = 0;
  1720. !         return (c);
  1721.       }
  1722.       if (lap) {
  1723.           if ((c = *lap++) == 0)
  1724. --- 430,436 ----
  1725.       for (;;) {
  1726.       if ((c = peekc) != 0) {
  1727.           peekc = 0;
  1728. !         goto ret_c;
  1729.       }
  1730.       if (lap) {
  1731.           if ((c = *lap++) == 0)
  1732. ***************
  1733. *** 438,453 ****
  1734.           else {
  1735.           if (cmap(c, _META | _Q | _Q1))
  1736.               c |= QUOTE;
  1737. !         return (c);
  1738.           }
  1739.       }
  1740.       if ((c = peekd) != 0) {
  1741.           peekd = 0;
  1742. !         return (c);
  1743.       }
  1744.       if (exclp) {
  1745.           if ((c = *exclp++) != 0)
  1746. !         return (c);
  1747.           if (exclnxt && --exclc >= 0) {
  1748.           exclnxt = exclnxt->next;
  1749.           setexclp(exclnxt->word);
  1750. --- 438,453 ----
  1751.           else {
  1752.           if (cmap(c, _META | _Q | _Q1))
  1753.               c |= QUOTE;
  1754. !         goto ret_c;
  1755.           }
  1756.       }
  1757.       if ((c = peekd) != 0) {
  1758.           peekd = 0;
  1759. !         goto ret_c;
  1760.       }
  1761.       if (exclp) {
  1762.           if ((c = *exclp++) != 0)
  1763. !         goto ret_c;
  1764.           if (exclnxt && --exclc >= 0) {
  1765.           exclnxt = exclnxt->next;
  1766.           setexclp(exclnxt->word);
  1767. ***************
  1768. *** 475,481 ****
  1769. --- 475,486 ----
  1770.       }
  1771.       break;
  1772.       }
  1773. + ret_c:
  1774. + #ifdef DOSTEXT
  1775. +     return (c == '\r' ? getC1(flag) : c);
  1776. + #else
  1777.       return (c);
  1778. + #endif
  1779.   }
  1780.   
  1781.   static void
  1782. ***************
  1783. *** 1125,1134 ****
  1784.   
  1785.       case 'h':
  1786.       case 't':
  1787. !     if (!any(short2str(cp), '/'))
  1788.           return (type == 't' ? Strsave(cp) : 0);
  1789.       wp = Strend(cp);
  1790. !     while (*--wp != '/')
  1791.           continue;
  1792.       if (type == 'h')
  1793.           xp = Strsave(cp), xp[wp - cp] = 0;
  1794. --- 1130,1139 ----
  1795.   
  1796.       case 'h':
  1797.       case 't':
  1798. !     if (!has_slash(short2str(cp)))
  1799.           return (type == 't' ? Strsave(cp) : 0);
  1800.       wp = Strend(cp);
  1801. !     while (!is_dirsep(*--wp))
  1802.           continue;
  1803.       if (type == 'h')
  1804.           xp = Strsave(cp), xp[wp - cp] = 0;
  1805. ***************
  1806. *** 1139,1145 ****
  1807.       case 'e':
  1808.       case 'r':
  1809.       wp = Strend(cp);
  1810. !     for (wp--; wp >= cp && *wp != '/'; wp--)
  1811.           if (*wp == '.') {
  1812.           if (type == 'e')
  1813.               xp = Strsave(wp + 1);
  1814. --- 1144,1150 ----
  1815.       case 'e':
  1816.       case 'r':
  1817.       wp = Strend(cp);
  1818. !     for (wp--; wp >= cp && !is_dirsep(*wp); wp--)
  1819.           if (*wp == '.') {
  1820.           if (type == 'e')
  1821.               xp = Strsave(wp + 1);
  1822. ***************
  1823. *** 1622,1628 ****
  1824.       }
  1825.       c = fbuf[0][fseekp - fbobp];
  1826.       fseekp++;
  1827. !     return (c);
  1828.       }
  1829.   again:
  1830.       buf = (int) fseekp / BUFSIZE;
  1831. --- 1627,1633 ----
  1832.       }
  1833.       c = fbuf[0][fseekp - fbobp];
  1834.       fseekp++;
  1835. !     goto ret_c;
  1836.       }
  1837.   again:
  1838.       buf = (int) fseekp / BUFSIZE;
  1839. ***************
  1840. *** 1699,1705 ****
  1841. --- 1704,1716 ----
  1842.       }
  1843.       c = fbuf[buf][(int) fseekp % BUFSIZE];
  1844.       fseekp++;
  1845. + 
  1846. + ret_c:
  1847. + #ifdef DOSTEXT
  1848. +     return (c == '\r' ? bgetc() : c);
  1849. + #else
  1850.       return (c);
  1851. + #endif
  1852.   }
  1853.   
  1854.   static void
  1855. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.misc.c ./sh.misc.c
  1856. *** ../../store/tcsh-6.03/sh.misc.c    Tue Nov 24 13:04:20 1992
  1857. --- ./sh.misc.c    Mon Mar  8 20:35:22 1993
  1858. ***************
  1859. *** 38,43 ****
  1860. --- 38,47 ----
  1861.   
  1862.   RCSID("$Id: sh.misc.c,v 3.17 1992/10/18 00:43:08 christos Exp $")
  1863.   
  1864. + #ifdef __MINT__
  1865. + extern int __mint;      /* kernel version */
  1866. + #endif
  1867. + 
  1868.   static    int    renum    __P((int, int));
  1869.   static  Char  **blkend    __P((Char **));
  1870.   static  Char  **blkcat    __P((Char **, Char **));
  1871. ***************
  1872. *** 270,275 ****
  1873. --- 274,285 ----
  1874.   {
  1875.       register int f;
  1876.   
  1877. + #ifdef __MINT__
  1878. + /* in TOS, all handles are shared by all processes! (ack!) */
  1879. +     if (__mint == 0)
  1880. +         return;
  1881. + #endif
  1882. + 
  1883.       if (didcch)
  1884.       return;
  1885.       didcch = 1;
  1886. ***************
  1887. *** 308,313 ****
  1888. --- 318,326 ----
  1889.       if (i == j || i < 0)
  1890.       return (i);
  1891.   #ifdef HAVEDUP2
  1892. + # ifdef __MINT__
  1893. +     if (__mint != 0)    /* TOS screws up dup2 */
  1894. + # endif
  1895.       if (j >= 0) {
  1896.       (void) dup2(i, j);
  1897.       if (j != i)
  1898. ***************
  1899. *** 328,333 ****
  1900. --- 341,351 ----
  1901.   
  1902.       if (i == j || i < 0 || (j < 0 && i > 2))
  1903.       return (i);
  1904. + #ifdef __MINT__
  1905. +     if (__mint == 0 && j > 5) {
  1906. +         return (i <= 5) ? dup(i) : j;
  1907. +     }
  1908. + #endif
  1909.       if (j >= 0) {
  1910.   #ifdef HAVEDUP2
  1911.       (void) dup2(i, j);
  1912. ***************
  1913. *** 464,466 ****
  1914. --- 482,567 ----
  1915.           return (0);
  1916.       }
  1917.   }
  1918. + 
  1919. + #ifdef DOSFS
  1920. + 
  1921. + int
  1922. + is_dirsep(i)
  1923. +         int i;
  1924. + {
  1925. +         return i == '/' || i == '\\' ;
  1926. + }
  1927. + 
  1928. + int
  1929. + is_abspath(pth)
  1930. +         register Char *pth;
  1931. + {
  1932. +         return is_dirsep(TRM(*pth)) || TRM(pth[1]) == ':';
  1933. + }
  1934. + 
  1935. + char *
  1936. + lastslash(pth)
  1937. +         register char *pth;
  1938. + {
  1939. +         register char *slash = 0, *s = pth, c;
  1940. + 
  1941. +         if (! s) return 0;
  1942. + 
  1943. +         while ( (c = *s++) != 0) {
  1944. +                 if (is_dirsep(c))
  1945. +                         slash = s - 1;
  1946. +         }
  1947. +         if (slash)
  1948. +                 return slash;
  1949. +         return (pth[1] == ':') ? pth : 0;
  1950. + }
  1951. + 
  1952. + Char *
  1953. + Lastslash(pth)
  1954. +         register Char *pth;
  1955. + {
  1956. +         register Char *slash = 0, *s = pth, c;
  1957. + 
  1958. +         if (! s) return 0;
  1959. + 
  1960. +         while ( (c = *s++) != 0) {
  1961. +                 if (is_dirsep(c))
  1962. +                         slash = s - 1;
  1963. +         }
  1964. +         if (slash)
  1965. +                 return slash;
  1966. +         return (pth[1] == ':') ? pth : 0;
  1967. + }
  1968. + 
  1969. + int
  1970. + has_slash(pth)
  1971. +         register char *pth;
  1972. + {
  1973. +         register char c;
  1974. + 
  1975. +         if (! pth) return 0;
  1976. + 
  1977. +         while ( (c = *pth++) != 0)
  1978. +                 if (is_dirsep(c))
  1979. +                         return 1;
  1980. + 
  1981. +         return 0;
  1982. + }
  1983. + 
  1984. + int
  1985. + Has_slash(pth)
  1986. +         register Char *pth;
  1987. + {
  1988. +         register Char c;
  1989. + 
  1990. +         if (! pth) return 0;
  1991. + 
  1992. +         while ( (c = *pth++) != 0)
  1993. +                 if (is_dirsep(c))
  1994. +                         return 1;
  1995. + 
  1996. +         return 0;
  1997. + }
  1998. + 
  1999. + #endif /* DOSFS */
  2000. + 
  2001. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.proc.c ./sh.proc.c
  2002. *** ../../store/tcsh-6.03/sh.proc.c    Tue Nov 24 13:04:22 1992
  2003. --- ./sh.proc.c    Fri Feb 26 02:23:04 1993
  2004. ***************
  2005. *** 83,94 ****
  2006.                   0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L};
  2007.   
  2008.   # else /* !SUNOS4 && !hp9000 */
  2009. ! #  ifdef masscomp
  2010.   /*
  2011.    * Initialization of this structure under RTU 4.1A & RTU 5.0 is problematic
  2012.    * because the first two elements are unions of a time_t and a struct timeval.
  2013.    * So we'll just have to trust the loader to do the "right thing", DAS DEC-90.
  2014.    */
  2015.   static struct rusage zru;
  2016.   #  else    /* masscomp */
  2017.   static struct rusage zru = {{0L, 0L}, {0L, 0L}, 0, 0, 0, 0, 0, 0, 0, 
  2018. --- 83,97 ----
  2019.                   0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L};
  2020.   
  2021.   # else /* !SUNOS4 && !hp9000 */
  2022. ! #  if defined(masscomp) || defined(__MINT__)
  2023.   /*
  2024.    * Initialization of this structure under RTU 4.1A & RTU 5.0 is problematic
  2025.    * because the first two elements are unions of a time_t and a struct timeval.
  2026.    * So we'll just have to trust the loader to do the "right thing", DAS DEC-90.
  2027.    */
  2028. + /* MiNT is missing a lot of fields, so we also trust the loader (we can
  2029. +  * trust it) to avoid getting errors from the compiler
  2030. +  */
  2031.   static struct rusage zru;
  2032.   #  else    /* masscomp */
  2033.   static struct rusage zru = {{0L, 0L}, {0L, 0L}, 0, 0, 0, 0, 0, 0, 0, 
  2034. ***************
  2035. *** 119,124 ****
  2036. --- 122,145 ----
  2037.   static    struct process    *pgetcurr    __P((struct process *));
  2038.   static    void         okpcntl    __P((void));
  2039.   
  2040. + #ifdef __MINT__
  2041. + /*
  2042. +  * MiNT's fork() is a lot like vfork() in some respects; in particular,
  2043. +  * if we set job control signals to SIG_DFL after fork() and then
  2044. +  * get a signal, our parent will never be able to reclaim the address
  2045. +  * space and everything will hang :-(. Solution: rather than SIG_DFL,
  2046. +  * set the signals to a null signal handler; if we exec(), they will
  2047. +  * be set to SIG_DFL automatically, and before then the signals will
  2048. +  * effectively be ignored.
  2049. +  */
  2050. + 
  2051. + void
  2052. + sig_tmp_ign(int sig)
  2053. + {
  2054. + /* do nothing, and rely on the magic of restartable system calls :-) */
  2055. + }
  2056. + #endif
  2057. + 
  2058.   /*
  2059.    * pchild - called at interrupt level by the SIGCHLD signal
  2060.    *    indicating that at least one child has terminated or stopped
  2061. ***************
  2062. *** 1856,1865 ****
  2063. --- 1877,1893 ----
  2064.           (void) signal(SIGQUIT, ignint ? SIG_IGN : SIG_DFL);
  2065.   #ifdef BSDJOBS
  2066.           if (wanttty >= 0) {
  2067. + # ifdef __MINT__
  2068. + /* see comments for sig_tmp_ign above */
  2069. +                 (void) signal(SIGTSTP, sig_tmp_ign);
  2070. +                 (void) signal(SIGTTIN, sig_tmp_ign);
  2071. +                 (void) signal(SIGTTOU, sig_tmp_ign);
  2072. + # else
  2073.           /* make stoppable */
  2074.           (void) signal(SIGTSTP, SIG_DFL);
  2075.           (void) signal(SIGTTIN, SIG_DFL);
  2076.           (void) signal(SIGTTOU, SIG_DFL);
  2077. + # endif
  2078.           }
  2079.   #endif /* BSDJOBS */
  2080.           (void) signal(SIGTERM, parterm);
  2081. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.sem.c ./sh.sem.c
  2082. *** ../../store/tcsh-6.03/sh.sem.c    Tue Nov 24 13:04:22 1992
  2083. --- ./sh.sem.c    Fri Feb 26 02:36:24 1993
  2084. ***************
  2085. *** 489,497 ****
  2086. --- 489,506 ----
  2087.               }
  2088.   # ifdef BSDJOBS
  2089.               if (_gv.wanttty >= 0) {
  2090. + #  ifdef __MINT__
  2091. + /* see sh.proc.c */
  2092. +                             extern void sig_tmp_ign();
  2093. + 
  2094. +                             (void) signal(SIGTSTP, sig_tmp_ign);
  2095. +                             (void) signal(SIGTTIN, sig_tmp_ign);
  2096. +                             (void) signal(SIGTTOU, sig_tmp_ign);
  2097. + #  else
  2098.                   (void) signal(SIGTSTP, SIG_DFL);
  2099.                   (void) signal(SIGTTIN, SIG_DFL);
  2100.                   (void) signal(SIGTTOU, SIG_DFL);
  2101. + #  endif
  2102.               }
  2103.   # endif /* BSDJOBS */
  2104.   
  2105. ***************
  2106. *** 612,619 ****
  2107. --- 621,630 ----
  2108.       execute(t->t_dcdr, _gv.wanttty, pv, pipeout);
  2109.       t->t_dcar->t_dflg |= F_PIPEOUT |
  2110.           (t->t_dflg & (F_PIPEIN | F_AMPERSAND | F_STDERR | F_NOINTERRUPT));
  2111. + # ifndef __MINT__
  2112.       if (_gv.wanttty > 0)
  2113.           _gv.wanttty = 0;    /* got tty already */
  2114. + # endif
  2115.       execute(t->t_dcar, _gv.wanttty, pipein, pv);
  2116.   #else /* !BACKPIPE */
  2117.       t->t_dcar->t_dflg |= F_PIPEOUT |
  2118. ***************
  2119. *** 621,628 ****
  2120. --- 632,641 ----
  2121.       execute(t->t_dcar, _gv.wanttty, pipein, pv);
  2122.       t->t_dcdr->t_dflg |= F_PIPEIN | (t->t_dflg &
  2123.               (F_PIPEOUT | F_AMPERSAND | F_NOFORK | F_NOINTERRUPT));
  2124. + # ifndef __MINT__
  2125.       if (_gv.wanttty > 0)
  2126.           _gv.wanttty = 0;    /* got tty already */
  2127. + # endif
  2128.       execute(t->t_dcdr, _gv.wanttty, pv, pipeout);
  2129.   #endif /* BACKPIPE */
  2130.       break;
  2131. ***************
  2132. *** 795,812 ****
  2133. --- 808,839 ----
  2134.           (void) dmove(fd, 0);
  2135.       }
  2136.       else if (flags & F_PIPEIN) {
  2137. + #ifdef __MINT__
  2138. +             (void) dup2(pipein[0], 0);
  2139. + #else
  2140.           (void) close(0);
  2141.           (void) dup(pipein[0]);
  2142. + #endif
  2143.           (void) close(pipein[0]);
  2144.           (void) close(pipein[1]);
  2145.       }
  2146.       else if ((flags & F_NOINTERRUPT) && tpgrp == -1) {
  2147. + #ifdef __MINT__
  2148. +             int fd = open(_PATH_DEVNULL, O_RDONLY);
  2149. +             (void) dup2(fd, 0);
  2150. +             (void) close(fd);
  2151. + #else
  2152.           (void) close(0);
  2153.           (void) open(_PATH_DEVNULL, O_RDONLY);
  2154. + #endif
  2155.       }
  2156.       else {
  2157. + #ifdef __MINT__
  2158. +             (void) dup2(OLDSTD, 0);
  2159. + #else
  2160.           (void) close(0);
  2161.           (void) dup(OLDSTD);
  2162. + #endif
  2163.   #if defined(CLOSE_ON_EXEC) && defined(CLEX_DUPS)
  2164.           /*
  2165.            * PWP: Unlike Bezerkeley 4.3, FIONCLEX for Pyramid is preserved
  2166. ***************
  2167. *** 853,865 ****
  2168. --- 880,900 ----
  2169.       is1atty = isatty(1);
  2170.       }
  2171.       else if (flags & F_PIPEOUT) {
  2172. + #ifdef __MINT__
  2173. +         (void) dup2(pipeout[1], 1);
  2174. + #else
  2175.       (void) close(1);
  2176.       (void) dup(pipeout[1]);
  2177. + #endif
  2178.       is1atty = 0;
  2179.       }
  2180.       else {
  2181. + #ifdef __MINT__
  2182. +         (void) dup2(SHOUT, 1);
  2183. + #else
  2184.       (void) close(1);
  2185.       (void) dup(SHOUT);
  2186. + #endif
  2187.       is1atty = isoutatty;
  2188.   # if defined(CLOSE_ON_EXEC) && defined(CLEX_DUPS)
  2189.       (void) close_on_exec(1, 0);
  2190. ***************
  2191. *** 868,878 ****
  2192. --- 903,921 ----
  2193.   
  2194.       (void) close(2);
  2195.       if (flags & F_STDERR) {
  2196. + #ifdef __MINT__
  2197. +         (void) dup2(1, 2);
  2198. + #else
  2199.       (void) dup(1);
  2200. + #endif
  2201.       is2atty = is1atty;
  2202.       }
  2203.       else {
  2204. + #ifdef __MINT__
  2205. +         (void) dup2(SHDIAG, 2);
  2206. + #else
  2207.       (void) dup(SHDIAG);
  2208. + #endif
  2209.       is2atty = isdiagatty;
  2210.   # if defined(CLOSE_ON_EXEC) && defined(CLEX_DUPS)
  2211.       (void) close_on_exec(2, 0);
  2212. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.set.c ./sh.set.c
  2213. *** ../../store/tcsh-6.03/sh.set.c    Tue Nov 24 13:04:22 1992
  2214. --- ./sh.set.c    Mon Mar  8 05:43:22 1993
  2215. ***************
  2216. *** 54,59 ****
  2217. --- 54,62 ----
  2218.   static    struct varent    *madrof        __P((Char *, struct varent *));
  2219.   static    void         unsetv1    __P((struct varent *));
  2220.   static    void         exportpath    __P((Char **));
  2221. + #ifdef __MINT__
  2222. + static  void             exportsuffixes __P((Char **));
  2223. + #endif
  2224.   static    void         balance    __P((struct varent *, int, int));
  2225.   
  2226.   /*
  2227. ***************
  2228. *** 68,73 ****
  2229. --- 71,82 ----
  2230.       exportpath(adrof(STRpath)->vec);
  2231.       dohash(NULL, NULL);
  2232.       }
  2233. + #ifdef __MINT__
  2234. +     else if (eq(vp, STRsuffixes)) {
  2235. +         exportsuffixes(adrof(STRsuffixes)->vec);
  2236. +         dohash(NULL, NULL);
  2237. +     }
  2238. + #endif
  2239.       else if (eq(vp, STRhistchars)) {
  2240.       register Char *pn = value(vp);
  2241.   
  2242. ***************
  2243. *** 418,424 ****
  2244.       }
  2245.       else {
  2246.       num = 4;        /* confuse lint */
  2247. !     if (sizeof(int) == num && ((unsigned int) n) == 2147483648) {
  2248.           *putp++ = '2';
  2249.           n = 147483648;
  2250.       }
  2251. --- 427,433 ----
  2252.       }
  2253.       else {
  2254.       num = 4;        /* confuse lint */
  2255. !     if (sizeof(int) == num && ((unsigned int) n) == 2147483648U) {
  2256.           *putp++ = '2';
  2257.           n = 147483648;
  2258.       }
  2259. ***************
  2260. *** 731,736 ****
  2261. --- 740,769 ----
  2262.       tsetenv(STRKPATH, exppath);
  2263.   }
  2264.   
  2265. + #ifdef __MINT__
  2266. + static void
  2267. + exportsuffixes(val)
  2268. +     Char  **val;
  2269. + {
  2270. +     Char    expsuff[BUFSIZE];
  2271. +     static Char STRcomma[] = { ',' , '\0' };
  2272. + 
  2273. +     expsuff[0] = 0;
  2274. +     if (val)
  2275. +         while (*val) {
  2276. +             if (Strlen(*val) + Strlen(expsuff) + 2 > BUFSIZE) {
  2277. +                 xprintf("Warning: ridiculously long SUFFIXES truncated\n");
  2278. +                 break;
  2279. +             }
  2280. +             (void) Strcat(expsuff, *val++);
  2281. +             if (*val == 0 || eq(*val, STRRparen))
  2282. +                 break;
  2283. +             (void) Strcat(expsuff, STRcomma);
  2284. +         }
  2285. +     tsetenv(STRSUFFIXES, expsuff);
  2286. + }
  2287. + #endif /* __MINT__ */
  2288. + 
  2289.   #ifndef lint
  2290.    /*
  2291.     * Lint thinks these have null effect
  2292. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.time.c ./sh.time.c
  2293. *** ../../store/tcsh-6.03/sh.time.c    Tue Nov 24 13:04:22 1992
  2294. --- ./sh.time.c    Fri Feb 26 02:46:54 1993
  2295. ***************
  2296. *** 178,183 ****
  2297. --- 178,184 ----
  2298.   {
  2299.       tvadd(&ru->ru_utime, &ru2->ru_utime);
  2300.       tvadd(&ru->ru_stime, &ru2->ru_stime);
  2301. + #ifndef __MINT__
  2302.       if (ru2->ru_maxrss > ru->ru_maxrss)
  2303.       ru->ru_maxrss = ru2->ru_maxrss;
  2304.   
  2305. ***************
  2306. *** 194,199 ****
  2307. --- 195,201 ----
  2308.       ru->ru_nsignals += ru2->ru_nsignals;
  2309.       ru->ru_nvcsw += ru2->ru_nvcsw;
  2310.       ru->ru_nivcsw += ru2->ru_nivcsw;
  2311. + #endif
  2312.   }
  2313.   
  2314.   #else /* BSDTIMES */
  2315. ***************
  2316. *** 325,331 ****
  2317. --- 327,337 ----
  2318.       int     ms =
  2319.       (e->tv_sec - b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000;
  2320.   
  2321. + # ifdef __MINT__
  2322. +     cp = "%Uu %Ss %E %P";
  2323. + # else
  2324.       cp = "%Uu %Ss %E %P %X+%Dk %I+%Oio %Fpf+%Ww";
  2325. + # endif
  2326.   #else
  2327.   # ifdef _SEQUENT_
  2328.       int     ms =
  2329. ***************
  2330. *** 416,422 ****
  2331.           xprintf("%ld.%01ld%%", i / 10, i % 10);    /* nn.n% */
  2332.           break;
  2333.   
  2334. ! #ifdef BSDTIMES
  2335.           case 'W':        /* number of swaps */
  2336.           i = r1->ru_nswap - r0->ru_nswap;
  2337.           xprintf("%ld", i);
  2338. --- 422,428 ----
  2339.           xprintf("%ld.%01ld%%", i / 10, i % 10);    /* nn.n% */
  2340.           break;
  2341.   
  2342. ! #if defined(BSDTIMES) && !defined(__MINT__)
  2343.           case 'W':        /* number of swaps */
  2344.           i = r1->ru_nswap - r0->ru_nswap;
  2345.           xprintf("%ld", i);
  2346. diff --context --new-file --recursive ../../store/tcsh-6.03/sh.types.h ./sh.types.h
  2347. *** ../../store/tcsh-6.03/sh.types.h    Tue Nov 24 13:04:34 1992
  2348. --- ./sh.types.h    Sat Mar 13 23:58:14 1993
  2349. ***************
  2350. *** 487,492 ****
  2351. --- 487,502 ----
  2352.   # endif /* _SIZE_T */
  2353.   #endif /* _VMS_POSIX */
  2354.   
  2355. + /*
  2356. +  *  MiNT
  2357. +  */
  2358. + #ifdef __MINT__
  2359. + # ifndef _SIGMASK_T
  2360. + #  define _SIGMASK_T
  2361. +    typedef long sigmask_t;
  2362. + # endif
  2363. + #endif
  2364. + 
  2365.   /***
  2366.    *** Catch all for non POSIX and/or non ANSI systems.
  2367.    *** Systems up to spec *should* define these automatically
  2368. diff --context --new-file --recursive ../../store/tcsh-6.03/sldiffs ./sldiffs
  2369. *** ../../store/tcsh-6.03/sldiffs
  2370. --- ./sldiffs    Sun Mar  7 18:07:24 1993
  2371. ***************
  2372. *** 0 ****
  2373. --- 1,3012 ----
  2374. + Common subdirectories: /usr/users/staff/hohmuth/tmp/tcsh-6.03/config and ./config
  2375. + Only in .: config.h
  2376. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/config_f.h ./config_f.h
  2377. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/config_f.h    Tue Nov 24 13:04:38 1992
  2378. + --- ./config_f.h    Fri Feb 26 04:17:40 1993
  2379. + ***************
  2380. + *** 56,62 ****
  2381. +    *        if you don't have <locale.h>, you don't want
  2382. +    *        to define this.
  2383. +    */
  2384. + ! #define NLS
  2385. +   
  2386. +   /*
  2387. +    * LOGINFIRST   Source ~/.login before ~/.cshrc
  2388. + --- 56,62 ----
  2389. +    *        if you don't have <locale.h>, you don't want
  2390. +    *        to define this.
  2391. +    */
  2392. + ! #undef NLS
  2393. +   
  2394. +   /*
  2395. +    * LOGINFIRST   Source ~/.login before ~/.cshrc
  2396. + ***************
  2397. + *** 90,96 ****
  2398. +    *        on the name of the tty, and environment.
  2399. +    *        Does not make sense in the modern window systems!
  2400. +    */
  2401. + ! #define AUTOLOGOUT
  2402. +   
  2403. +   /*
  2404. +    * SUSPENDED    Newer shells say 'Suspended' instead of 'Stopped'.
  2405. + --- 90,96 ----
  2406. +    *        on the name of the tty, and environment.
  2407. +    *        Does not make sense in the modern window systems!
  2408. +    */
  2409. + ! #undef AUTOLOGOUT
  2410. +   
  2411. +   /*
  2412. +    * SUSPENDED    Newer shells say 'Suspended' instead of 'Stopped'.
  2413. + ***************
  2414. + *** 115,120 ****
  2415. + --- 115,137 ----
  2416. +   #else
  2417. +   # undef SYSMALLOC
  2418. +   #endif
  2419. + + 
  2420. + + #if 0
  2421. + + # ifndef SYSMALLOC
  2422. + + #  define SYSMALLOC
  2423. + + # endif
  2424. + + #endif
  2425. + + 
  2426. + + /*
  2427. + +  * DOSFS      Support DOS filessystems (which have a 12345678.123 limit),
  2428. + +  *            and allow backslashes as path separators
  2429. + +  */
  2430. + + #define DOSFS
  2431. + + 
  2432. + + /*
  2433. + +  * DOSTEXT    Support DOS text mode/files (ignore 0x0d)
  2434. + +  */
  2435. + + #define DOSTEXT
  2436. +   
  2437. +   /*
  2438. +    * RCSID    This defines if we want rcs strings in the binary or not
  2439. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/ed,init.c ./ed,init.c
  2440. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/ed,init.c    Tue Nov 24 13:04:28 1992
  2441. + --- ./ed,init.c    Thu Feb 25 04:30:40 1993
  2442. + ***************
  2443. + *** 626,631 ****
  2444. + --- 626,649 ----
  2445. +       char    buf[BUFSIZE];
  2446. +   
  2447. +       chrs = read(SHIN, buf, (size_t) min(chrs, BUFSIZE - 1));
  2448. + + 
  2449. + + # ifdef DOSTEXT
  2450. + +         /* strip out carriage returns */
  2451. + +         if (chrs > 0) {
  2452. + +                 char *src, *dst;
  2453. + +                 int i;
  2454. + + 
  2455. + +                 src = dst = buf;
  2456. + +                 for (i = chrs; i > 0; --i) {
  2457. + +                         if (*src == '\r')
  2458. + +                                 --chrs;
  2459. + +                         else
  2460. + +                                 *dst++ = *src;
  2461. + +                         src++;
  2462. + +                 }
  2463. + +         }
  2464. + + # endif
  2465. + + 
  2466. +       if (chrs > 0) {
  2467. +           buf[chrs] = '\0';
  2468. +           Input_Line = Strsave(str2short(buf));
  2469. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/ed,input.c ./ed,input.c
  2470. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/ed,input.c    Tue Nov 24 13:04:30 1992
  2471. + --- ./ed,input.c    Thu Feb 25 04:33:52 1993
  2472. + ***************
  2473. + *** 99,105 ****
  2474. +       if (!Tty_raw_mode && MacroLvl < 0) {
  2475. +       long    chrs = 0;
  2476. +   
  2477. + !     (void) ioctl(SHIN, FIONREAD, (ioctl_t) & chrs);
  2478. +       if (chrs == 0) {
  2479. +           if (Rawmode() < 0)
  2480. +           return 0;
  2481. + --- 99,111 ----
  2482. +       if (!Tty_raw_mode && MacroLvl < 0) {
  2483. +       long    chrs = 0;
  2484. +   
  2485. + ! # ifndef __MINT__
  2486. + ! /* MiNT _always_ wants to go into raw mode, so don't bother with the
  2487. + !  * FIONREAD test
  2488. + !  */
  2489. + !         (void) ioctl(SHIN, FIONREAD, (ioctl_t) & chrs);
  2490. + ! # endif
  2491. + ! 
  2492. +       if (chrs == 0) {
  2493. +           if (Rawmode() < 0)
  2494. +           return 0;
  2495. + Only in .: foobar
  2496. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/makefile ./makefile
  2497. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/makefile    Tue Nov 24 13:04:36 1992
  2498. + --- ./makefile    Tue Feb 23 21:48:04 1993
  2499. + ***************
  2500. + *** 7,12 ****
  2501. + --- 7,16 ----
  2502. +   # With an input editor, command completion, etc. and ported to all sorts of
  2503. +   # things; Paul Placeway, CIS Dept., Ohio State University
  2504. +   #
  2505. + + 
  2506. + + CROSSDIR = /usr/users1/mat91/mh1/atari/cross-gcc
  2507. + + CROSSBIN = $(CROSSDIR)/bin
  2508. + + 
  2509. +   SHELL=/bin/sh
  2510. +   VERSION=6.03
  2511. +   BUILD=tcsh
  2512. + ***************
  2513. + *** 49,58 ****
  2514. +   #CFLAGS=-O $(INCLUDES)
  2515. +   
  2516. +   # gcc-2.1
  2517. + ! CFLAGS=-O2 $(INCLUDES)
  2518. +   
  2519. +   # gcc 2.1 on linux
  2520. + ! #CFLAGS=-O6 -fomit-frame-pointer $(INCLUDES)
  2521. +   
  2522. +   #hpux 8.0
  2523. +   #CFLAGS= $(INCLUDES) +O3 -Aa
  2524. + --- 53,63 ----
  2525. +   #CFLAGS=-O $(INCLUDES)
  2526. +   
  2527. +   # gcc-2.1
  2528. + ! #CFLAGS=-O2 $(INCLUDES)
  2529. +   
  2530. +   # gcc 2.1 on linux
  2531. + ! # MiNT
  2532. + ! CFLAGS=-O6 -fomit-frame-pointer $(INCLUDES)
  2533. +   
  2534. +   #hpux 8.0
  2535. +   #CFLAGS= $(INCLUDES) +O3 -Aa
  2536. + ***************
  2537. + *** 117,123 ****
  2538. +   ################################################################
  2539. +   ## LIBES.  Pick one, or roll your own.
  2540. +   ################################################################
  2541. + ! LIBES= -ltermcap         ## BSD style things, hpux
  2542. +   #LIBES= -ltermc            ## emx under OS/2
  2543. +   #LIBES= -ltermcap -lsec        ## Tek XD88/10 (UTekV) with PW_SHADOW
  2544. +   #LIBES= -ltermcap -lsec        ## Motorola MPC (sysV88) with PW_SHADOW
  2545. + --- 122,128 ----
  2546. +   ################################################################
  2547. +   ## LIBES.  Pick one, or roll your own.
  2548. +   ################################################################
  2549. + ! #LIBES= -ltermcap         ## BSD style things, hpux
  2550. +   #LIBES= -ltermc            ## emx under OS/2
  2551. +   #LIBES= -ltermcap -lsec        ## Tek XD88/10 (UTekV) with PW_SHADOW
  2552. +   #LIBES= -ltermcap -lsec        ## Motorola MPC (sysV88) with PW_SHADOW
  2553. + ***************
  2554. + *** 152,157 ****
  2555. + --- 157,163 ----
  2556. +   #LIBES= -lcurses -lnsl -lsocket -lc /usr/ucblib/libucb.a ## Stardent Vistra
  2557. +   #LIBES= -ltermcap -lndir -lsocket -ljobs ## masscomp RTU6.0
  2558. +   #LIBES= -ltermcap -lauth        ## for Ultrix with Enhanced Security
  2559. + + LIBES=    -lbtermcap        ## when compiling with -mbaserel in MiNT
  2560. +   
  2561. +   
  2562. +   # The difficult choice of a c-compiler...
  2563. + ***************
  2564. + *** 164,170 ****
  2565. +   
  2566. +   # The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which
  2567. +   # on the suns does not know how to make dynamically linked binaries.
  2568. + ! CC=    gcc -Wall -B/bin/    
  2569. +   #CC=    gcc -m486 -Wall # Generate code for Intel 486 (linux)
  2570. +   #CC=    cc
  2571. +   #CC=    occ
  2572. + --- 170,176 ----
  2573. +   
  2574. +   # The -B tells gcc to use /bin/ld. This is to avoid using the gnu ld, which
  2575. +   # on the suns does not know how to make dynamically linked binaries.
  2576. + ! #CC=    gcc -Wall -B/bin/    
  2577. +   #CC=    gcc -m486 -Wall # Generate code for Intel 486 (linux)
  2578. +   #CC=    cc
  2579. +   #CC=    occ
  2580. + ***************
  2581. + *** 173,178 ****
  2582. + --- 179,187 ----
  2583. +   #CC=    /bin/cc    # For suns, w/o gcc and SVR4
  2584. +   #CC=    /usr/lib/sun.compile/cc  # FPS 500 (+FPX) with Sun C compiler
  2585. +   #CC=    scc     # Alliant fx2800
  2586. + + #CC=    $(CROSSBIN)/cgcc -Wall
  2587. + + CC=    gcc -Wall
  2588. + + 
  2589. +   ED=    ed
  2590. +   AS=    as
  2591. +   RM=    rm
  2592. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/pathname.h ./pathname.h
  2593. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/pathname.h    Tue Nov 24 13:04:38 1992
  2594. + --- ./pathname.h    Thu Feb 25 04:36:08 1993
  2595. + ***************
  2596. + *** 69,74 ****
  2597. + --- 69,80 ----
  2598. +   # endif /* !_PATH_DOTCSHRC */
  2599. +   #endif /* NeXT */
  2600. +   
  2601. + + #ifdef DOSFS
  2602. + + # define _PATH_DOTLOGIN         "/etc/login.csh"
  2603. + + # define _PATH_DOTLOGOUT        "/etc/logout.csh"
  2604. + + # define _PATH_DOTCSHRC         "/etc/cshrc.csh"
  2605. + + #endif
  2606. + + 
  2607. +   #if defined(sgi) || defined(OREO) || defined(cray) || defined(AMIX) || defined(CDC)
  2608. +   # ifndef _PATH_DOTLOGIN
  2609. +   #  define _PATH_DOTLOGIN    "/etc/cshrc"
  2610. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,char.c ./sh,char.c
  2611. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,char.c    Tue Nov 24 13:04:18 1992
  2612. + --- ./sh,char.c    Thu Feb 25 04:57:24 1993
  2613. + ***************
  2614. + *** 51,58 ****
  2615. +       _CTR,        _CTR|_SP|_META,    _CTR|_NL|_META,    _CTR,
  2616. +   
  2617. +   /*     12 np         13 cr         14 so         15 si    */
  2618. + !     _CTR,        _CTR,        _CTR,        _CTR,
  2619. + ! 
  2620. +   /*     16 dle         17 dc1         18 dc2         19 dc3    */
  2621. +       _CTR,        _CTR,        _CTR,        _CTR,
  2622. +   
  2623. + --- 51,62 ----
  2624. +       _CTR,        _CTR|_SP|_META,    _CTR|_NL|_META,    _CTR,
  2625. +   
  2626. +   /*     12 np         13 cr         14 so         15 si    */
  2627. + ! #ifndef DOSTEXT
  2628. + !         _CTR,           _CTR,           _CTR,           _CTR,
  2629. + ! #else
  2630. + ! /* cr is whitespace */
  2631. + !         _CTR,           _CTR|_SP|_META, _CTR,           _CTR,
  2632. + ! #endif
  2633. +   /*     16 dle         17 dc1         18 dc2         19 dc3    */
  2634. +       _CTR,        _CTR,        _CTR,        _CTR,
  2635. +   
  2636. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,dir.c ./sh,dir.c
  2637. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,dir.c    Tue Nov 24 13:04:18 1992
  2638. + --- ./sh,dir.c    Thu Feb 25 05:31:40 1993
  2639. + ***************
  2640. + *** 242,248 ****
  2641. +       len = Strlen(hp);
  2642. +       if (!(dflag & DIR_LONG) && hp != NULL && !eq(hp, STRslash) &&
  2643. +           Strncmp(hp, dp->di_name, len) == 0 &&
  2644. + !         (dp->di_name[len] == '\0' || dp->di_name[len] == '/')) 
  2645. +           len = Strlen(s = (dp->di_name + len)) + 2;
  2646. +       else
  2647. +           len = Strlen(s = dp->di_name) + 1;
  2648. + --- 242,248 ----
  2649. +       len = Strlen(hp);
  2650. +       if (!(dflag & DIR_LONG) && hp != NULL && !eq(hp, STRslash) &&
  2651. +           Strncmp(hp, dp->di_name, len) == 0 &&
  2652. + !         (dp->di_name[len] == '\0' || is_dirsep(dp->di_name[len])) 
  2653. +           len = Strlen(s = (dp->di_name + len)) + 2;
  2654. +       else
  2655. +           len = Strlen(s = dp->di_name) + 1;
  2656. + ***************
  2657. + *** 301,308 ****
  2658. +   {
  2659. +   
  2660. +   /* return true if dp is of the form "../xxx" or "/../xxx" */
  2661. + ! #define IS_DOTDOT(sp, p) (ISDOTDOT(p) && ((p) == (sp) || *((p) - 1) == '/'))
  2662. + ! #define IS_DOT(sp, p) (ISDOT(p) && ((p) == (sp) || *((p) - 1) == '/'))
  2663. +   
  2664. +   #ifdef S_IFLNK
  2665. +       if (exp) {
  2666. + --- 301,308 ----
  2667. +   {
  2668. +   
  2669. +   /* return true if dp is of the form "../xxx" or "/../xxx" */
  2670. + ! #define IS_DOTDOT(sp, p) (ISDOTDOT(p) && ((p) == (sp) || is_dirsep(*((p) - 1))))
  2671. + ! #define IS_DOT(sp, p) (ISDOT(p) && ((p) == (sp) || is_dirsep(*((p) - 1))))
  2672. +   
  2673. +   #ifdef S_IFLNK
  2674. +       if (exp) {
  2675. + ***************
  2676. + *** 332,338 ****
  2677. +        * If the path starts with a slash, we are not relative to
  2678. +        * the current working directory.
  2679. +        */
  2680. + !     if ( *start == '/' )
  2681. +           *cwd = '\0';
  2682. +   # ifdef apollo
  2683. +       slashslash = cwd[0] == '/' && cwd[1] == '/';
  2684. + --- 332,338 ----
  2685. +        * If the path starts with a slash, we are not relative to
  2686. +        * the current working directory.
  2687. +        */
  2688. + !     if ( is_abspath(start) )
  2689. +           *cwd = '\0';
  2690. +   # ifdef apollo
  2691. +       slashslash = cwd[0] == '/' && cwd[1] == '/';
  2692. + ***************
  2693. + *** 363,369 ****
  2694. +   
  2695. +           *dp = '\0';
  2696. +           while (dotdot > 0) 
  2697. + !             if ((dp = Strrchr(cwd, '/')) != NULL) {
  2698. +   # ifdef apollo
  2699. +               if (dp == &cwd[1]) 
  2700. +                   slashslash = 1;
  2701. + --- 363,369 ----
  2702. +   
  2703. +           *dp = '\0';
  2704. +           while (dotdot > 0) 
  2705. + !             if ((dp = Lastslash(cwd)) != NULL) {
  2706. +   # ifdef apollo
  2707. +               if (dp == &cwd[1]) 
  2708. +                   slashslash = 1;
  2709. + ***************
  2710. + *** 391,403 ****
  2711. +   # endif /* apollo */
  2712. +   
  2713. +           if (buf[0]) {
  2714. + !             if ((TRM(cwd[(dotdot = Strlen(cwd)) - 1])) != '/')
  2715. +               cwd[dotdot++] = '/';
  2716. +               cwd[dotdot] = '\0';
  2717. + !             dp = Strspl(cwd, TRM(buf[0]) == '/' ? &buf[1] : buf);
  2718. +               xfree((ptr_t) cwd);
  2719. +               cwd = dp;
  2720. + !             if ((TRM(cwd[(dotdot = Strlen(cwd)) - 1])) == '/')
  2721. +               cwd[--dotdot] = '\0';
  2722. +           }
  2723. +           if (!*cp)
  2724. + --- 391,403 ----
  2725. +   # endif /* apollo */
  2726. +   
  2727. +           if (buf[0]) {
  2728. + !             if (! is_dirsep(TRM(cwd[(dotdot = Strlen(cwd)) - 1])))
  2729. +               cwd[dotdot++] = '/';
  2730. +               cwd[dotdot] = '\0';
  2731. + !             dp = Strspl(cwd, is_dirsep(TRM(buf[0])) ? &buf[1] : buf);
  2732. +               xfree((ptr_t) cwd);
  2733. +               cwd = dp;
  2734. + !             if (is_dirsep(TRM(cwd[(dotdot = Strlen(cwd)) - 1])))
  2735. +               cwd[--dotdot] = '\0';
  2736. +           }
  2737. +           if (!*cp)
  2738. + ***************
  2739. + *** 470,476 ****
  2740. +   {
  2741. +       Char   *dp;
  2742. +   
  2743. + !     if (*cp != '/') {
  2744. +       register Char *p, *q;
  2745. +       int     cwdlen;
  2746. +   
  2747. + --- 470,476 ----
  2748. +   {
  2749. +       Char   *dp;
  2750. +   
  2751. + !     if (! is_abspath(cp)) {
  2752. +       register Char *p, *q;
  2753. +       int     cwdlen;
  2754. +   
  2755. + ***************
  2756. + *** 547,553 ****
  2757. +       serrno = errno;
  2758. +       }
  2759. +   
  2760. + !     if (cp[0] != '/' && !prefix(STRdotsl, cp) && !prefix(STRdotdotsl, cp)
  2761. +       && (c = adrof(STRcdpath))) {
  2762. +       Char  **cdp;
  2763. +       register Char *p;
  2764. + --- 547,553 ----
  2765. +       serrno = errno;
  2766. +       }
  2767. +   
  2768. + !     if (!is_abspath(cp) && !prefix(STRdotsl, cp) && !prefix(STRdotdotsl, cp)
  2769. +       && (c = adrof(STRcdpath))) {
  2770. +       Char  **cdp;
  2771. +       register Char *p;
  2772. + ***************
  2773. + *** 578,584 ****
  2774. +       }
  2775. +       }
  2776. +       dp = value(cp);
  2777. + !     if ((dp[0] == '/' || dp[0] == '.') && chdir(short2str(dp)) >= 0) {
  2778. +       xfree((ptr_t) cp);
  2779. +       cp = Strsave(dp);
  2780. +       printd = 1;
  2781. + --- 578,584 ----
  2782. +       }
  2783. +       }
  2784. +       dp = value(cp);
  2785. + !     if ((is_abspath(dp) || dp[0] == '.') && chdir(short2str(dp)) >= 0) {
  2786. +       xfree((ptr_t) cp);
  2787. +       cp = Strsave(dp);
  2788. +       printd = 1;
  2789. + ***************
  2790. + *** 801,811 ****
  2791. +        * christos: if the path given does not start with a slash prepend cwd. If
  2792. +        * cwd does not start with a slash or the result would be too long abort().
  2793. +        */
  2794. + !     if (*cp != '/') {
  2795. +       Char    tmpdir[MAXPATHLEN];
  2796. +   
  2797. +       p1 = value(STRcwd);
  2798. + !     if (p1 == STRNULL || *p1 != '/')
  2799. +           abort();
  2800. +       if (Strlen(p1) + Strlen(cp) + 1 >= MAXPATHLEN)
  2801. +           abort();
  2802. + --- 801,811 ----
  2803. +        * christos: if the path given does not start with a slash prepend cwd. If
  2804. +        * cwd does not start with a slash or the result would be too long abort().
  2805. +        */
  2806. + !     if (! is_abspath(cp)) {
  2807. +       Char    tmpdir[MAXPATHLEN];
  2808. +   
  2809. +       p1 = value(STRcwd);
  2810. + !     if (p1 == STRNULL || !is_abspath(p1))
  2811. +           abort();
  2812. +       if (Strlen(p1) + Strlen(cp) + 1 >= MAXPATHLEN)
  2813. +           abort();
  2814. + ***************
  2815. + *** 817,823 ****
  2816. +       }
  2817. +   
  2818. +   #ifdef COMMENT
  2819. + !     if (*cp != '/')
  2820. +       abort();
  2821. +   #endif /* COMMENT */
  2822. +   
  2823. + --- 817,823 ----
  2824. +       }
  2825. +   
  2826. +   #ifdef COMMENT
  2827. + !     if (!is_abspath(cp))
  2828. +       abort();
  2829. +   #endif /* COMMENT */
  2830. +   
  2831. + ***************
  2832. + *** 827,833 ****
  2833. +   
  2834. +       while (*p) {        /* for each component */
  2835. +       sp = p;            /* save slash address */
  2836. + !     while (*++p == '/')    /* flush extra slashes */
  2837. +           continue;
  2838. +       if (p != ++sp)
  2839. +           for (p1 = sp, p2 = p; (*p1++ = *p2++) != '\0';)
  2840. + --- 827,833 ----
  2841. +   
  2842. +       while (*p) {        /* for each component */
  2843. +       sp = p;            /* save slash address */
  2844. + !     while (is_dirsep(*++p))    /* flush extra slashes */
  2845. +           continue;
  2846. +       if (p != ++sp)
  2847. +           for (p1 = sp, p2 = p; (*p1++ = *p2++) != '\0';)
  2848. + ***************
  2849. + *** 835,841 ****
  2850. +       p = sp;            /* save start of component */
  2851. +       slash = 0;
  2852. +       while (*++p)        /* find next slash or end of path */
  2853. + !         if (*p == '/') {
  2854. +           slash = 1;
  2855. +           *p = 0;
  2856. +           break;
  2857. + --- 835,841 ----
  2858. +       p = sp;            /* save start of component */
  2859. +       slash = 0;
  2860. +       while (*++p)        /* find next slash or end of path */
  2861. + !         if (is_dirsep(*p)) {
  2862. +           slash = 1;
  2863. +           *p = 0;
  2864. +           break;
  2865. + ***************
  2866. + *** 885,896 ****
  2867. +            */
  2868. +           for (p1 = p; *p1++;)
  2869. +               continue;
  2870. + !         if (*link != '/') {
  2871. +               /*
  2872. +                * Relative path, expand it between the "yyy/" and the
  2873. +                * "/..". First, back sp up to the character past "yyy/".
  2874. +                */
  2875. + !             while (*--sp != '/')
  2876. +               continue;
  2877. +               sp++;
  2878. +               *sp = 0;
  2879. + --- 885,896 ----
  2880. +            */
  2881. +           for (p1 = p; *p1++;)
  2882. +               continue;
  2883. + !         if (! is_abspath(link)) {
  2884. +               /*
  2885. +                * Relative path, expand it between the "yyy/" and the
  2886. +                * "/..". First, back sp up to the character past "yyy/".
  2887. +                */
  2888. + !             while (!is_dirsep(*--sp))
  2889. +               continue;
  2890. +               sp++;
  2891. +               *sp = 0;
  2892. + ***************
  2893. + *** 942,948 ****
  2894. +   #endif /* S_IFLNK */
  2895. +           *sp = '/';
  2896. +           if (sp != cp)
  2897. + !         while (*--sp != '/')
  2898. +               continue;
  2899. +           if (slash) {
  2900. +           for (p1 = sp + 1, p2 = p + 1; (*p1++ = *p2++) != '\0';)
  2901. + --- 942,948 ----
  2902. +   #endif /* S_IFLNK */
  2903. +           *sp = '/';
  2904. +           if (sp != cp)
  2905. + !         while (is_dirsep(*--sp))
  2906. +               continue;
  2907. +           if (slash) {
  2908. +           for (p1 = sp + 1, p2 = p + 1; (*p1++ = *p2++) != '\0';)
  2909. + ***************
  2910. + *** 979,991 ****
  2911. +            */
  2912. +           for (p1 = p; *p1++;)
  2913. +               continue;
  2914. + !         if (*link != '/') {
  2915. +               /*
  2916. +                * Relative path, expand it between the "yyy/" and the
  2917. +                * remainder. First, back sp up to the character past
  2918. +                * "yyy/".
  2919. +                */
  2920. + !             while (*--sp != '/')
  2921. +               continue;
  2922. +               sp++;
  2923. +               *sp = 0;
  2924. + --- 979,991 ----
  2925. +            */
  2926. +           for (p1 = p; *p1++;)
  2927. +               continue;
  2928. + !         if (! is_abspath(link)) {
  2929. +               /*
  2930. +                * Relative path, expand it between the "yyy/" and the
  2931. +                * remainder. First, back sp up to the character past
  2932. +                * "yyy/".
  2933. +                */
  2934. + !             while (! is_dirsep(*--sp))
  2935. +               continue;
  2936. +               sp++;
  2937. +               *sp = 0;
  2938. + ***************
  2939. + *** 1049,1056 ****
  2940. +       /*
  2941. +        * See if we're not in a subdir of STRhome
  2942. +        */
  2943. + !     if (p1 && *p1 == '/' &&
  2944. + !     (Strncmp(p1, cp, cc) != 0 || (cp[cc] != '/' && cp[cc] != '\0'))) {
  2945. +       static ino_t home_ino = (ino_t) -1;
  2946. +       static dev_t home_dev = -1;
  2947. +       static Char *home_ptr = NULL;
  2948. + --- 1049,1056 ----
  2949. +       /*
  2950. +        * See if we're not in a subdir of STRhome
  2951. +        */
  2952. + !     if (p1 && is_abspath(p1) &&
  2953. + !     (Strncmp(p1, cp, cc) != 0 || (!is_dirsep(cp[cc]) && cp[cc] != '\0'))) {
  2954. +       static ino_t home_ino = (ino_t) -1;
  2955. +       static dev_t home_dev = -1;
  2956. +       static Char *home_ptr = NULL;
  2957. + ***************
  2958. + *** 1075,1081 ****
  2959. +               sp = (Char *) - 1;
  2960. +               break;
  2961. +           }
  2962. + !         if ((sp = Strrchr(p2, '/')) != NULL)
  2963. +           *sp = '\0';
  2964. +       }
  2965. +       /*
  2966. + --- 1075,1081 ----
  2967. +               sp = (Char *) - 1;
  2968. +               break;
  2969. +           }
  2970. + !         if ((sp = Lastslash(p2)) != NULL)
  2971. +           *sp = '\0';
  2972. +       }
  2973. +       /*
  2974. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,dol.c ./sh,dol.c
  2975. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,dol.c    Tue Nov 24 13:04:18 1992
  2976. + --- ./sh,dol.c    Thu Feb 25 05:37:04 1993
  2977. + ***************
  2978. + *** 480,485 ****
  2979. + --- 480,491 ----
  2980. +       if (length)
  2981. +           stderror(ERR_NOTALLOWED, "$%<");
  2982. +       for (np = wbuf; read(OLDSTD, &tnp, 1) == 1; np++) {
  2983. + + #ifdef DOSTEXT
  2984. + +             /* strip out cr's */
  2985. + +             while (tnp == '\r') {
  2986. + +                 if (read(OLDSTD, &tnp, 1) != 1) break;
  2987. + +             }
  2988. + + #endif
  2989. +           *np = (unsigned char) tnp;
  2990. +           if (np >= &wbuf[BUFSIZE - 1])
  2991. +           stderror(ERR_LTOOLONG);
  2992. + ***************
  2993. + *** 940,945 ****
  2994. + --- 946,961 ----
  2995. +       register Char *lbp, *obp, *mbp;
  2996. +       Char  **vp;
  2997. +       bool    quoted;
  2998. + + #ifdef __MINT__
  2999. + +     int tf;
  3000. + +     extern int csh_tmpfile __P((void));   /* in sh.c */
  3001. + + 
  3002. + +     tf = csh_tmpfile();
  3003. + +     if (tf < 0)
  3004. + +         stderror(ERR_SYSTEM, "tmpfile", strerror(errno));
  3005. + +     (void)dup2(tf, 0);
  3006. + +     (void)close(tf);
  3007. + + #else
  3008. +       char   *tmp;
  3009. +   
  3010. +       if (creat(tmp = short2str(shtemp), 0600) < 0)
  3011. + ***************
  3012. + *** 953,958 ****
  3013. + --- 969,976 ----
  3014. +       stderror(ERR_SYSTEM, tmp, strerror(errno));
  3015. +       }
  3016. +       (void) unlink(tmp);        /* 0 0 inode! */
  3017. + + #endif /* __MINT__ */
  3018. + + 
  3019. +       Dv[0] = term;
  3020. +       Dv[1] = NULL;
  3021. +       gflag = 0;
  3022. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,exec.c ./sh,exec.c
  3023. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,exec.c    Tue Nov 24 13:04:18 1992
  3024. + --- ./sh,exec.c    Fri Feb 26 01:23:20 1993
  3025. + ***************
  3026. + *** 49,54 ****
  3027. + --- 49,60 ----
  3028. +   # define FASTHASH    /* Fast hashing is the default */
  3029. +   #endif /* OLDHASH */
  3030. +   
  3031. + + #ifdef __MINT__
  3032. + + extern char **environ;
  3033. + + int     csh_execve      __P((char *, char **, char **));
  3034. + + #define execv(f, t) csh_execve(f, t, environ)
  3035. + + #endif
  3036. + + 
  3037. +   /*
  3038. +    * System level search and execute of a command.
  3039. +    * We look in each directory for the specified command name.
  3040. + ***************
  3041. + *** 180,190 ****
  3042. +   #endif /* VFORK */
  3043. +   
  3044. +       v = adrof(STRpath);
  3045. + !     if (v == 0 && expath[0] != '/') {
  3046. +       blkfree(pv);
  3047. +       pexerr();
  3048. +       }
  3049. + !     slash = any(short2str(expath), '/');
  3050. +   
  3051. +       /*
  3052. +        * Glob the argument list, if necessary. Otherwise trim off the quote bits.
  3053. + --- 186,196 ----
  3054. +   #endif /* VFORK */
  3055. +   
  3056. +       v = adrof(STRpath);
  3057. + !     if (v == 0 && !is_abspath(expath)) {
  3058. +       blkfree(pv);
  3059. +       pexerr();
  3060. +       }
  3061. + !     slash = hash_slash(short2str(expath));
  3062. +   
  3063. +       /*
  3064. +        * Glob the argument list, if necessary. Otherwise trim off the quote bits.
  3065. + ***************
  3066. + *** 266,272 ****
  3067. +        * one at a time, as the user enters them.  This is kinda like Korn
  3068. +        * Shell's "tracked aliases".
  3069. +        */
  3070. + !     if (!slash && pv[0][0] == '/' && havhash) {
  3071. +   #ifdef FASTHASH
  3072. +           if (!bit(hashval, i))
  3073. +           goto cont;
  3074. + --- 272,278 ----
  3075. +        * one at a time, as the user enters them.  This is kinda like Korn
  3076. +        * Shell's "tracked aliases".
  3077. +        */
  3078. + !     if (!slash && is_abspath(pv[0]) && havhash) {
  3079. +   #ifdef FASTHASH
  3080. +           if (!bit(hashval, i))
  3081. +           goto cont;
  3082. + ***************
  3083. + *** 421,427 ****
  3084. + --- 427,438 ----
  3085. +        */
  3086. +       if ((fd = open(f, O_RDONLY)) != -1) {
  3087. +           if (read(fd, (char *) pref, 2) == 2) {
  3088. + + #ifndef DOSTEXT
  3089. +           if (!Isprint(pref[0]) && (pref[0] != '\n' && pref[0] != '\t')) {
  3090. + + #else
  3091. + +         if (!Isprint(pref[0]) && (pref[0] != '\n' && pref[0] != '\t'
  3092. + +                                   && pref[0] != '\r')) {
  3093. + + #endif
  3094. +               (void) close(fd);
  3095. +               /*
  3096. +                * We *know* what ENOEXEC means.
  3097. + ***************
  3098. + *** 453,459 ****
  3099. + --- 464,472 ----
  3100. +   #ifdef _PATH_BSHELL
  3101. +           if (fd != -1 
  3102. +   # ifndef ISC    /* Compatible with ISC's /bin/csh */
  3103. + + #  ifndef __MINT__ /* Compensate for missing #! interpretation */
  3104. +               && pref[0] != '#'
  3105. + + #  endif
  3106. +   # endif /* ISC */
  3107. +               )
  3108. +               vp[0] = STR_BSHELL;
  3109. + ***************
  3110. + *** 637,642 ****
  3111. + --- 650,659 ----
  3112. +       struct varent *v = adrof(STRpath);
  3113. +       Char  **pv;
  3114. +       int hashval;
  3115. + + #ifdef __MINT__
  3116. + +     struct varent *suffv = adrof(STRsuffixes);
  3117. + +     Char **suffpv;
  3118. + + #endif
  3119. +   
  3120. +   #ifdef FASTHASH
  3121. +       if (vv && vv[1]) {
  3122. + ***************
  3123. + *** 677,683 ****
  3124. +       if (v == NULL)
  3125. +       return;
  3126. +       for (pv = v->vec; *pv; pv++, i++) {
  3127. + !     if (pv[0][0] != '/')
  3128. +           continue;
  3129. +       dirp = opendir(short2str(*pv));
  3130. +       if (dirp == NULL)
  3131. + --- 694,700 ----
  3132. +       if (v == NULL)
  3133. +       return;
  3134. +       for (pv = v->vec; *pv; pv++, i++) {
  3135. + !     if (! is_abspath(pv[0]))
  3136. +           continue;
  3137. +       dirp = opendir(short2str(*pv));
  3138. +       if (dirp == NULL)
  3139. + ***************
  3140. + *** 696,701 ****
  3141. + --- 713,731 ----
  3142. +           (dp->d_name[1] == '\0' ||
  3143. +            (dp->d_name[1] == '.' && dp->d_name[2] == '\0')))
  3144. +           continue;
  3145. + + #ifdef __MINT__
  3146. + +             {   char *s = rindex(dp->d_name, '.');
  3147. + + 
  3148. + +                 if (s && suffv) {
  3149. + +                     for (suffpv = suffv->vec; *suffpv; suffpv++) {
  3150. + +                         if (!strcmp(s+1, short2str(*suffpv))) {
  3151. + +                             *s = 0; break;
  3152. + +                         }
  3153. + +                     }
  3154. + +                 }
  3155. + +             }
  3156. + + #endif /* __MINT__ */
  3157. + + 
  3158. +   #ifdef FASTHASH
  3159. +           hashval = hashname(str2short(dp->d_name));
  3160. +           bis(hashval, i);
  3161. + ***************
  3162. + *** 769,775 ****
  3163. +       register Char **pv;
  3164. +       register Char *sav;
  3165. +       register struct varent *v;
  3166. + !     register bool slash = any(short2str(name), '/');
  3167. +       register int hashval, i;
  3168. +   
  3169. +       v = adrof(STRpath);
  3170. + --- 799,805 ----
  3171. +       register Char **pv;
  3172. +       register Char *sav;
  3173. +       register struct varent *v;
  3174. + !     register bool slash = has_slash(short2str(name));
  3175. +       register int hashval, i;
  3176. +   
  3177. +       v = adrof(STRpath);
  3178. + ***************
  3179. + *** 781,787 ****
  3180. +       hashval = havhash ? hashname(name) : 0;
  3181. +       i = 0;
  3182. +       do {
  3183. + !     if (!slash && pv[0][0] == '/' && havhash) {
  3184. +   #ifdef FASTHASH
  3185. +           if (!bit(hashval, i))
  3186. +           goto cont;
  3187. + --- 811,817 ----
  3188. +       hashval = havhash ? hashname(name) : 0;
  3189. +       i = 0;
  3190. +       do {
  3191. + !     if (!slash && is_abspath(pv[0]) && havhash) {
  3192. +   #ifdef FASTHASH
  3193. +           if (!bit(hashval, i))
  3194. +           goto cont;
  3195. + ***************
  3196. + *** 827,832 ****
  3197. + --- 857,915 ----
  3198. +    * if dir_ok is set and the pathname refers to a directory.
  3199. +    * This is a bit kludgy, but in the name of optimization...
  3200. +    */
  3201. + + #ifdef __MINT__
  3202. + + int
  3203. + + executable(dir, name, dir_ok)
  3204. + +     Char   *dir, *name;
  3205. + +     bool    dir_ok;
  3206. + + {
  3207. + +     char *ext, *base;
  3208. + +     int i;
  3209. + +     struct stat stbuf;
  3210. + +     Char    path[MAXPATHLEN + 1];
  3211. + +     char   *strname;
  3212. + +     struct varent *v;
  3213. + +     Char **pv;
  3214. + + 
  3215. + +     if (dir && *dir) {
  3216. + +         copyn(path, dir, MAXPATHLEN);
  3217. + +         catn(path, name, MAXPATHLEN);
  3218. + +         strname = short2str(path);
  3219. + +     }
  3220. + +     else
  3221. + +         strname = short2str(name);
  3222. + + 
  3223. + +     ext = base = alloca(strlen(strname) + 5);
  3224. + +     while (*strname)
  3225. + +         *ext++ = *strname++;
  3226. + + 
  3227. + +     *ext = 0;
  3228. + + 
  3229. + +     if (stat(base, &stbuf) != -1 &&
  3230. + +         ((dir_ok && S_ISDIR(stbuf.st_mode)) ||
  3231. + +           (S_ISREG(stbuf.st_mode) &&
  3232. + +           ((stbuf.st_mode & (S_IXOTH|S_IXGRP|S_IXUSR))))))
  3233. + +                 return 1;
  3234. + + 
  3235. + +     if (dir_ok) return 0;
  3236. + + 
  3237. + +     v = adrof(STRsuffixes);
  3238. + +     if (v == 0) return 0;
  3239. + + 
  3240. + +     *ext++ = '.';
  3241. + +     for (pv = v->vec; *pv; pv++) {
  3242. + +         strcpy(ext, short2str(*pv));
  3243. + +         if (stat(base, &stbuf) != -1 &&
  3244. + +             (S_ISREG(stbuf.st_mode) &&
  3245. + +              ((stbuf.st_mode & (S_IXOTH|S_IXGRP|S_IXUSR)) ||
  3246. + +               !strcmp(ext, "csh"))))
  3247. + +                return 1;
  3248. + +     }
  3249. + +     return 0;
  3250. + + }
  3251. + + 
  3252. + + #else /* __MINT__ */
  3253. + + 
  3254. +   int
  3255. +   executable(dir, name, dir_ok)
  3256. +       Char   *dir, *name;
  3257. + ***************
  3258. + *** 851,856 ****
  3259. + --- 934,940 ----
  3260. +             (stbuf.st_mode & (S_IXOTH | S_IXGRP | S_IXUSR)) &&
  3261. +             access(strname, X_OK) == 0)));
  3262. +   }
  3263. + + #endif /* __MINT__ */
  3264. +   
  3265. +   void
  3266. +   tellmewhat(lex)
  3267. + ***************
  3268. + *** 910,916 ****
  3269. +       if ((i = iscommand(strip(sp->word))) != 0) {
  3270. +       register Char **pv;
  3271. +       register struct varent *v;
  3272. + !     bool    slash = any(short2str(sp->word), '/');
  3273. +   
  3274. +       v = adrof(STRpath);
  3275. +       if (v == 0 || v->vec[0] == 0 || slash)
  3276. + --- 994,1000 ----
  3277. +       if ((i = iscommand(strip(sp->word))) != 0) {
  3278. +       register Char **pv;
  3279. +       register struct varent *v;
  3280. + !     bool    slash = has_slash(short2str(sp->word));
  3281. +   
  3282. +       v = adrof(STRpath);
  3283. +       if (v == 0 || v->vec[0] == 0 || slash)
  3284. + ***************
  3285. + *** 975,981 ****
  3286. +       Char *sv;
  3287. +       int hashval, i, ex, rval = 0;
  3288. +   
  3289. + !     if (prt && any(short2str(cmd), '/')) {
  3290. +       xprintf("where: / in command makes no sense\n");
  3291. +       return 0;
  3292. +       }
  3293. + --- 1059,1065 ----
  3294. +       Char *sv;
  3295. +       int hashval, i, ex, rval = 0;
  3296. +   
  3297. + !     if (prt && has_slash(short2str(cmd))) {
  3298. +       xprintf("where: / in command makes no sense\n");
  3299. +       return 0;
  3300. +       }
  3301. + ***************
  3302. + *** 1042,1044 ****
  3303. + --- 1126,1167 ----
  3304. +       xfree((ptr_t) sv);
  3305. +       return rval;
  3306. +   }
  3307. + + 
  3308. + + #ifdef __MINT__
  3309. + + 
  3310. + + #include <process.h>
  3311. + + 
  3312. + + int
  3313. + + csh_execve(path, argv, envp)
  3314. + +         char *path;
  3315. + +         char **argv, **envp;
  3316. + + {
  3317. + +         int i;
  3318. + +         char *newpath, *s;
  3319. + +         Char **pv;
  3320. + +         struct varent *v;
  3321. + + 
  3322. + +         newpath = s = alloca(strlen(path) + 5);
  3323. + +         while (*path) {
  3324. + +                 *s++ = *path++;
  3325. + +         }
  3326. + +         *s = 0;
  3327. + + 
  3328. + +         if (access(newpath, 0) == 0)
  3329. + +                 return _spawnve(P_OVERLAY, newpath, argv, envp);
  3330. + + 
  3331. + +         v = adrof(STRsuffixes);
  3332. + +         if (v == 0)
  3333. + +                 return -1;
  3334. + +         *s++ = '.';
  3335. + + 
  3336. + +         for (pv = v->vec; *pv; pv++) {
  3337. + +                 strcpy(s, short2str(*pv));
  3338. + +                 if (access(newpath, 0) == 0) {
  3339. + +                         return _spawnve(P_OVERLAY, newpath, argv, envp);
  3340. + +                 }
  3341. + +         }
  3342. + +         return -1;
  3343. + + }
  3344. + + #endif /* __MINT__ */
  3345. + + 
  3346. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,file.c ./sh,file.c
  3347. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,file.c    Tue Nov 24 13:04:18 1992
  3348. + --- ./sh,file.c    Fri Feb 26 01:26:22 1993
  3349. + ***************
  3350. + *** 407,413 ****
  3351. +       if (old[0] != '~')
  3352. +       return (Strcpy(new, old));
  3353. +   
  3354. + !     for (p = person, o = &old[1]; *o && *o != '/'; *p++ = *o++);
  3355. +       *p = '\0';
  3356. +       if (person[0] == '\0')
  3357. +       (void) Strcpy(new, value(STRhome));
  3358. + --- 407,413 ----
  3359. +       if (old[0] != '~')
  3360. +       return (Strcpy(new, old));
  3361. +   
  3362. + !     for (p = person, o = &old[1]; *o && !is_dirsep(*o); *p++ = *o++);
  3363. +       *p = '\0';
  3364. +       if (person[0] == '\0')
  3365. +       (void) Strcpy(new, value(STRhome));
  3366. + ***************
  3367. + *** 502,508 ****
  3368. +   {
  3369. +       register Char *p;
  3370. +   
  3371. + !     p = Strrchr(path, '/');
  3372. +       if (p == NULL) {
  3373. +       copyn(name, path, MAXNAMLEN);
  3374. +       dir[0] = '\0';
  3375. + --- 502,508 ----
  3376. +   {
  3377. +       register Char *p;
  3378. +   
  3379. + !     p = Lastslash(path);
  3380. +       if (p == NULL) {
  3381. +       copyn(name, path, MAXNAMLEN);
  3382. +       dir[0] = '\0';
  3383. + ***************
  3384. + *** 590,596 ****
  3385. +       if (items != NULL)
  3386. +       FREE_ITEMS(items);
  3387. +   
  3388. + !     looking_for_lognames = (*word == '~') && (Strchr(word, '/') == NULL);
  3389. +       if (looking_for_lognames) {
  3390. +   #ifndef _VMS_POSIX
  3391. +       (void) setpwent();
  3392. + --- 590,596 ----
  3393. +       if (items != NULL)
  3394. +       FREE_ITEMS(items);
  3395. +   
  3396. + !     looking_for_lognames = (*word == '~') && (Has_slash(word) == NULL);
  3397. +       if (looking_for_lognames) {
  3398. +   #ifndef _VMS_POSIX
  3399. +       (void) setpwent();
  3400. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,func.c ./sh,func.c
  3401. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,func.c    Tue Nov 24 13:04:20 1992
  3402. + --- ./sh,func.c    Fri Feb 26 01:32:22 1993
  3403. + ***************
  3404. + *** 66,71 ****
  3405. + --- 66,75 ----
  3406. +   static    void    toend        __P((void));
  3407. +   static    void    xecho        __P((int, Char **));
  3408. +   
  3409. + + #ifdef __MINT__
  3410. + + extern  void    importsuffixes  __P((Char *));  /* in sh.c */
  3411. + + #endif
  3412. + + 
  3413. +   struct biltins *
  3414. +   isbfunc(t)
  3415. +       struct command *t;
  3416. + ***************
  3417. + *** 276,282 ****
  3418. + --- 280,297 ----
  3419. +       islogin();
  3420. +       rechist(NULL);
  3421. +       (void) signal(SIGTERM, parterm);
  3422. + + #ifdef __MINT__
  3423. + +     {
  3424. + +         extern int csh_execve __P((char *, char **, char **)); /* in sh.exec.c */
  3425. + +         extern char **environ;
  3426. + +         char *args[3];
  3427. + + 
  3428. + +         args[0] = "login"; args[1] = short2str(v[1]); args[2] = NULL;
  3429. + +         (void)csh_execve(_PATH_LOGIN, args, environ);
  3430. + +     }
  3431. + + #else
  3432. +       (void) execl(_PATH_LOGIN, "login", short2str(v[1]), NULL);
  3433. + + #endif
  3434. +       untty();
  3435. +       xexit(1);
  3436. +   }
  3437. + ***************
  3438. + *** 1190,1195 ****
  3439. + --- 1205,1216 ----
  3440. +       importpath(lp);
  3441. +       dohash(NULL, NULL);
  3442. +       }
  3443. + + #ifdef __MINT__
  3444. + +     else if (eq(vp, STRSUFFIXES)) {
  3445. + +         importsuffixes(lp);
  3446. + +         dohash(NULL, NULL);
  3447. + +     }
  3448. + + #endif /* __MINT__ */
  3449. +   #ifdef apollo
  3450. +       else if (eq(vp, STRSYSTYPE))
  3451. +       dohash(NULL, NULL);
  3452. + ***************
  3453. + *** 1313,1318 ****
  3454. + --- 1334,1343 ----
  3455. +   
  3456. +           if (eq(name, STRNOREBIND))
  3457. +               NoNLSRebind = 0;
  3458. + + #ifdef __MINT__
  3459. + +                 else if (eq(name, STRSUFFIXES))
  3460. + +                     dohash(NULL, NULL);
  3461. + + #endif
  3462. +   #ifdef apollo
  3463. +           else if (eq(name, STRSYSTYPE))
  3464. +               dohash(NULL, NULL);
  3465. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,glob.c ./sh,glob.c
  3466. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,glob.c    Tue Nov 24 13:04:20 1992
  3467. + --- ./sh,glob.c    Fri Feb 26 01:40:46 1993
  3468. + ***************
  3469. + *** 97,103 ****
  3470. +       *gstart++ = *s++;
  3471. +       u = s;
  3472. +       for (b = gstart, e = &gbuf[BUFSIZE - 1]; 
  3473. + !      *s && *s != '/' && *s != ':' && b < e;
  3474. +        *b++ = *s++)
  3475. +       continue;
  3476. +       *b = EOS;
  3477. + --- 97,103 ----
  3478. +       *gstart++ = *s++;
  3479. +       u = s;
  3480. +       for (b = gstart, e = &gbuf[BUFSIZE - 1]; 
  3481. + !      *s && is_dirsep(*s) && *s != ':' && b < e;
  3482. +        *b++ = *s++)
  3483. +       continue;
  3484. +       *b = EOS;
  3485. + ***************
  3486. + *** 135,141 ****
  3487. +        * kfk - 17 Jan 1984 - stack hack allows user to get at arbitrary dir names
  3488. +        * in stack. PWP: let =foobar pass through (for X windows)
  3489. +        */
  3490. + !     if (old[1] == '-' && (old[2] == '\0' || old[2] == '/')) {
  3491. +       /* =- */
  3492. +       dig = -1;
  3493. +       b = &old[2];
  3494. + --- 135,141 ----
  3495. +        * kfk - 17 Jan 1984 - stack hack allows user to get at arbitrary dir names
  3496. +        * in stack. PWP: let =foobar pass through (for X windows)
  3497. +        */
  3498. + !     if (old[1] == '-' && (old[2] == '\0' || is_dirsep(old[2]))) {
  3499. +       /* =- */
  3500. +       dig = -1;
  3501. +       b = &old[2];
  3502. + ***************
  3503. + *** 145,151 ****
  3504. +       dig = old[1] - '0';
  3505. +       for (b = &old[2]; Isdigit(*b); b++)
  3506. +           dig = dig * 10 + (*b - '0');
  3507. + !     if (*b != '\0' && *b != '/')
  3508. +           /* =<number>foobar */
  3509. +           return old;
  3510. +       }
  3511. + --- 145,151 ----
  3512. +       dig = old[1] - '0';
  3513. +       for (b = &old[2]; Isdigit(*b); b++)
  3514. +           dig = dig * 10 + (*b - '0');
  3515. + !     if (*b != '\0' && !is_dirsep(*b))
  3516. +           /* =<number>foobar */
  3517. +           return old;
  3518. +       }
  3519. + ***************
  3520. + *** 674,680 ****
  3521. +           else if (isglob(*c))
  3522. +           gflag |= G_GLOB;
  3523. +           else if (symlinks == SYM_EXPAND && 
  3524. + !         *p && ISDOTDOT(c) && (c == *(t-1) || *(c-1) == '/') )
  3525. +               gflag |= G_CSH;
  3526. +       }
  3527. +       }
  3528. + --- 674,680 ----
  3529. +           else if (isglob(*c))
  3530. +           gflag |= G_GLOB;
  3531. +           else if (symlinks == SYM_EXPAND && 
  3532. + !         *p && ISDOTDOT(c) && (c == *(t-1) || is_dirsep(*(c-1))) )
  3533. +               gflag |= G_CSH;
  3534. +       }
  3535. +       }
  3536. + ***************
  3537. + *** 834,839 ****
  3538. + --- 834,855 ----
  3539. +           do
  3540. +               icnt = read(pvec[0], tibuf, BUFSIZE);
  3541. +           while (icnt == -1 && errno == EINTR);
  3542. + + #ifdef DOSTEXT
  3543. + +                 /* strip out carriage returns */
  3544. + +                 {
  3545. + +                         char *src, *dst;
  3546. + +                         int i;
  3547. + +                         src = dst = tibuf;
  3548. + + 
  3549. + +                         for (i = icnt; i > 0; --i) {
  3550. + +                                 if (*src == '\r')
  3551. + +                                         --icnt;
  3552. + +                                 else
  3553. + +                                         *dst++ = *src;
  3554. + +                                 src++;
  3555. + +                         }
  3556. + +                 }
  3557. + + #endif
  3558. +           if (icnt <= 0) {
  3559. +               c = -1;
  3560. +               break;
  3561. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,lex.c ./sh,lex.c
  3562. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,lex.c    Tue Nov 24 13:04:20 1992
  3563. + --- ./sh,lex.c    Fri Feb 26 02:05:56 1993
  3564. + ***************
  3565. + *** 430,436 ****
  3566. +       for (;;) {
  3567. +       if ((c = peekc) != 0) {
  3568. +           peekc = 0;
  3569. + !         return (c);
  3570. +       }
  3571. +       if (lap) {
  3572. +           if ((c = *lap++) == 0)
  3573. + --- 430,436 ----
  3574. +       for (;;) {
  3575. +       if ((c = peekc) != 0) {
  3576. +           peekc = 0;
  3577. + !         goto ret_c;
  3578. +       }
  3579. +       if (lap) {
  3580. +           if ((c = *lap++) == 0)
  3581. + ***************
  3582. + *** 438,453 ****
  3583. +           else {
  3584. +           if (cmap(c, _META | _Q | _Q1))
  3585. +               c |= QUOTE;
  3586. + !         return (c);
  3587. +           }
  3588. +       }
  3589. +       if ((c = peekd) != 0) {
  3590. +           peekd = 0;
  3591. + !         return (c);
  3592. +       }
  3593. +       if (exclp) {
  3594. +           if ((c = *exclp++) != 0)
  3595. + !         return (c);
  3596. +           if (exclnxt && --exclc >= 0) {
  3597. +           exclnxt = exclnxt->next;
  3598. +           setexclp(exclnxt->word);
  3599. + --- 438,453 ----
  3600. +           else {
  3601. +           if (cmap(c, _META | _Q | _Q1))
  3602. +               c |= QUOTE;
  3603. + !         goto ret_c;
  3604. +           }
  3605. +       }
  3606. +       if ((c = peekd) != 0) {
  3607. +           peekd = 0;
  3608. + !         goto ret_c;
  3609. +       }
  3610. +       if (exclp) {
  3611. +           if ((c = *exclp++) != 0)
  3612. + !         goto ret_c;
  3613. +           if (exclnxt && --exclc >= 0) {
  3614. +           exclnxt = exclnxt->next;
  3615. +           setexclp(exclnxt->word);
  3616. + ***************
  3617. + *** 475,481 ****
  3618. + --- 475,486 ----
  3619. +       }
  3620. +       break;
  3621. +       }
  3622. + + ret_c:
  3623. + + #ifdef DOSTEXT
  3624. + +     return (c == '\r' ? getC1(flag) : c);
  3625. + + #else
  3626. +       return (c);
  3627. + + #endif
  3628. +   }
  3629. +   
  3630. +   static void
  3631. + ***************
  3632. + *** 1125,1134 ****
  3633. +   
  3634. +       case 'h':
  3635. +       case 't':
  3636. + !     if (!any(short2str(cp), '/'))
  3637. +           return (type == 't' ? Strsave(cp) : 0);
  3638. +       wp = Strend(cp);
  3639. + !     while (*--wp != '/')
  3640. +           continue;
  3641. +       if (type == 'h')
  3642. +           xp = Strsave(cp), xp[wp - cp] = 0;
  3643. + --- 1130,1139 ----
  3644. +   
  3645. +       case 'h':
  3646. +       case 't':
  3647. + !     if (!has_slash(short2str(cp)))
  3648. +           return (type == 't' ? Strsave(cp) : 0);
  3649. +       wp = Strend(cp);
  3650. + !     while (!is_dirsep(*--wp))
  3651. +           continue;
  3652. +       if (type == 'h')
  3653. +           xp = Strsave(cp), xp[wp - cp] = 0;
  3654. + ***************
  3655. + *** 1139,1145 ****
  3656. +       case 'e':
  3657. +       case 'r':
  3658. +       wp = Strend(cp);
  3659. + !     for (wp--; wp >= cp && *wp != '/'; wp--)
  3660. +           if (*wp == '.') {
  3661. +           if (type == 'e')
  3662. +               xp = Strsave(wp + 1);
  3663. + --- 1144,1150 ----
  3664. +       case 'e':
  3665. +       case 'r':
  3666. +       wp = Strend(cp);
  3667. + !     for (wp--; wp >= cp && !is_dirsep(*wp); wp--)
  3668. +           if (*wp == '.') {
  3669. +           if (type == 'e')
  3670. +               xp = Strsave(wp + 1);
  3671. + ***************
  3672. + *** 1622,1628 ****
  3673. +       }
  3674. +       c = fbuf[0][fseekp - fbobp];
  3675. +       fseekp++;
  3676. + !     return (c);
  3677. +       }
  3678. +   again:
  3679. +       buf = (int) fseekp / BUFSIZE;
  3680. + --- 1627,1633 ----
  3681. +       }
  3682. +       c = fbuf[0][fseekp - fbobp];
  3683. +       fseekp++;
  3684. + !     goto ret_c;
  3685. +       }
  3686. +   again:
  3687. +       buf = (int) fseekp / BUFSIZE;
  3688. + ***************
  3689. + *** 1699,1705 ****
  3690. + --- 1704,1716 ----
  3691. +       }
  3692. +       c = fbuf[buf][(int) fseekp % BUFSIZE];
  3693. +       fseekp++;
  3694. + + 
  3695. + + ret_c:
  3696. + + #ifdef DOSTEXT
  3697. + +     return (c == '\r' ? bgetc() : c);
  3698. + + #else
  3699. +       return (c);
  3700. + + #endif
  3701. +   }
  3702. +   
  3703. +   static void
  3704. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,misc.c ./sh,misc.c
  3705. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,misc.c    Tue Nov 24 13:04:20 1992
  3706. + --- ./sh,misc.c    Fri Feb 26 02:14:42 1993
  3707. + ***************
  3708. + *** 38,43 ****
  3709. + --- 38,47 ----
  3710. +   
  3711. +   RCSID("$Id: sh.misc.c,v 3.17 1992/10/18 00:43:08 christos Exp $")
  3712. +   
  3713. + + #ifdef __MINT__
  3714. + + extern int __mint;      /* kernel version */
  3715. + + #endif
  3716. + + 
  3717. +   static    int    renum    __P((int, int));
  3718. +   static  Char  **blkend    __P((Char **));
  3719. +   static  Char  **blkcat    __P((Char **, Char **));
  3720. + ***************
  3721. + *** 270,275 ****
  3722. + --- 274,285 ----
  3723. +   {
  3724. +       register int f;
  3725. +   
  3726. + + #ifdef __MINT__
  3727. + + /* in TOS, all handles are shared by all processes! (ack!) */
  3728. + +     if (__mint == 0)
  3729. + +         return;
  3730. + + #endif
  3731. + + 
  3732. +       if (didcch)
  3733. +       return;
  3734. +       didcch = 1;
  3735. + ***************
  3736. + *** 308,313 ****
  3737. + --- 318,326 ----
  3738. +       if (i == j || i < 0)
  3739. +       return (i);
  3740. +   #ifdef HAVEDUP2
  3741. + + # ifdef __MINT__
  3742. + +     if (__mint != 0)    /* TOS screws up dup2 */
  3743. + + # endif
  3744. +       if (j >= 0) {
  3745. +       (void) dup2(i, j);
  3746. +       if (j != i)
  3747. + ***************
  3748. + *** 328,333 ****
  3749. + --- 341,351 ----
  3750. +   
  3751. +       if (i == j || i < 0 || (j < 0 && i > 2))
  3752. +       return (i);
  3753. + + #ifdef __MINT__
  3754. + +     if (__mint == 0 && j > 5) {
  3755. + +         return (i <= 5) ? dup(i) : j;
  3756. + +     }
  3757. + + #endif
  3758. +       if (j >= 0) {
  3759. +   #ifdef HAVEDUP2
  3760. +       (void) dup2(i, j);
  3761. + ***************
  3762. + *** 464,466 ****
  3763. + --- 482,567 ----
  3764. +           return (0);
  3765. +       }
  3766. +   }
  3767. + + 
  3768. + + #ifdef DOSFS
  3769. + + 
  3770. + + int
  3771. + + is_dirsep(i)
  3772. + +         int i;
  3773. + + {
  3774. + +         return i == '/' || i == '\\' ;
  3775. + + }
  3776. + + 
  3777. + + int
  3778. + + is_abspath(pth)
  3779. + +         register Char *pth;
  3780. + + {
  3781. + +         return is_dirsep(TRM(*pth)) || TRM(pth[1]) == ':';
  3782. + + }
  3783. + + 
  3784. + + char *
  3785. + + lastslash(pth)
  3786. + +         register char *pth;
  3787. + + {
  3788. + +         register char *slash = 0, *s = pth, c;
  3789. + + 
  3790. + +         if (! s) return 0;
  3791. + + 
  3792. + +         while ( (c = *s++) != 0) {
  3793. + +                 if (is_dirsep(c))
  3794. + +                         slash = s - 1;
  3795. + +         }
  3796. + +         if (slash)
  3797. + +                 return slash;
  3798. + +         return (pth[1] == ':') ? pth : 0;
  3799. + + }
  3800. + + 
  3801. + + Char *
  3802. + + Lastslash(pth)
  3803. + +         register Char *pth;
  3804. + + {
  3805. + +         register Char *slash = 0, *s = pth, c;
  3806. + + 
  3807. + +         if (! s) return 0;
  3808. + + 
  3809. + +         while ( (c = *s++) != 0) {
  3810. + +                 if (is_dirsep(c))
  3811. + +                         slash = s - 1;
  3812. + +         }
  3813. + +         if (slash)
  3814. + +                 return slash;
  3815. + +         return (pth[1] == ':') ? pth : 0;
  3816. + + }
  3817. + + 
  3818. + + int
  3819. + + hasslash(pth)
  3820. + +         register char *pth;
  3821. + + {
  3822. + +         register char c;
  3823. + + 
  3824. + +         if (! pth) return 0;
  3825. + + 
  3826. + +         while ( (c = *pth++) != 0)
  3827. + +                 if (is_dirsep(c))
  3828. + +                         return 1;
  3829. + + 
  3830. + +         return 0;
  3831. + + }
  3832. + + 
  3833. + + int
  3834. + + Hasslash(pth)
  3835. + +         register Char *pth;
  3836. + + {
  3837. + +         register Char c;
  3838. + + 
  3839. + +         if (! pth) return 0;
  3840. + + 
  3841. + +         while ( (c = *pth++) != 0)
  3842. + +                 if (is_dirsep(c))
  3843. + +                         return 1;
  3844. + + 
  3845. + +         return 0;
  3846. + + }
  3847. + + 
  3848. + + #endif /* DOSFS */
  3849. + + 
  3850. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,proc.c ./sh,proc.c
  3851. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,proc.c    Tue Nov 24 13:04:22 1992
  3852. + --- ./sh,proc.c    Fri Feb 26 02:23:04 1993
  3853. + ***************
  3854. + *** 83,94 ****
  3855. +                   0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L};
  3856. +   
  3857. +   # else /* !SUNOS4 && !hp9000 */
  3858. + ! #  ifdef masscomp
  3859. +   /*
  3860. +    * Initialization of this structure under RTU 4.1A & RTU 5.0 is problematic
  3861. +    * because the first two elements are unions of a time_t and a struct timeval.
  3862. +    * So we'll just have to trust the loader to do the "right thing", DAS DEC-90.
  3863. +    */
  3864. +   static struct rusage zru;
  3865. +   #  else    /* masscomp */
  3866. +   static struct rusage zru = {{0L, 0L}, {0L, 0L}, 0, 0, 0, 0, 0, 0, 0, 
  3867. + --- 83,97 ----
  3868. +                   0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L};
  3869. +   
  3870. +   # else /* !SUNOS4 && !hp9000 */
  3871. + ! #  if defined(masscomp) || defined(__MINT__)
  3872. +   /*
  3873. +    * Initialization of this structure under RTU 4.1A & RTU 5.0 is problematic
  3874. +    * because the first two elements are unions of a time_t and a struct timeval.
  3875. +    * So we'll just have to trust the loader to do the "right thing", DAS DEC-90.
  3876. +    */
  3877. + + /* MiNT is missing a lot of fields, so we also trust the loader (we can
  3878. + +  * trust it) to avoid getting errors from the compiler
  3879. + +  */
  3880. +   static struct rusage zru;
  3881. +   #  else    /* masscomp */
  3882. +   static struct rusage zru = {{0L, 0L}, {0L, 0L}, 0, 0, 0, 0, 0, 0, 0, 
  3883. + ***************
  3884. + *** 119,124 ****
  3885. + --- 122,145 ----
  3886. +   static    struct process    *pgetcurr    __P((struct process *));
  3887. +   static    void         okpcntl    __P((void));
  3888. +   
  3889. + + #ifdef __MINT__
  3890. + + /*
  3891. + +  * MiNT's fork() is a lot like vfork() in some respects; in particular,
  3892. + +  * if we set job control signals to SIG_DFL after fork() and then
  3893. + +  * get a signal, our parent will never be able to reclaim the address
  3894. + +  * space and everything will hang :-(. Solution: rather than SIG_DFL,
  3895. + +  * set the signals to a null signal handler; if we exec(), they will
  3896. + +  * be set to SIG_DFL automatically, and before then the signals will
  3897. + +  * effectively be ignored.
  3898. + +  */
  3899. + + 
  3900. + + void
  3901. + + sig_tmp_ign(int sig)
  3902. + + {
  3903. + + /* do nothing, and rely on the magic of restartable system calls :-) */
  3904. + + }
  3905. + + #endif
  3906. + + 
  3907. +   /*
  3908. +    * pchild - called at interrupt level by the SIGCHLD signal
  3909. +    *    indicating that at least one child has terminated or stopped
  3910. + ***************
  3911. + *** 1856,1865 ****
  3912. + --- 1877,1893 ----
  3913. +           (void) signal(SIGQUIT, ignint ? SIG_IGN : SIG_DFL);
  3914. +   #ifdef BSDJOBS
  3915. +           if (wanttty >= 0) {
  3916. + + # ifdef __MINT__
  3917. + + /* see comments for sig_tmp_ign above */
  3918. + +                 (void) signal(SIGTSTP, sig_tmp_ign);
  3919. + +                 (void) signal(SIGTTIN, sig_tmp_ign);
  3920. + +                 (void) signal(SIGTTOU, sig_tmp_ign);
  3921. + + # else
  3922. +           /* make stoppable */
  3923. +           (void) signal(SIGTSTP, SIG_DFL);
  3924. +           (void) signal(SIGTTIN, SIG_DFL);
  3925. +           (void) signal(SIGTTOU, SIG_DFL);
  3926. + + # endif
  3927. +           }
  3928. +   #endif /* BSDJOBS */
  3929. +           (void) signal(SIGTERM, parterm);
  3930. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,sem.c ./sh,sem.c
  3931. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,sem.c    Tue Nov 24 13:04:22 1992
  3932. + --- ./sh,sem.c    Fri Feb 26 02:36:24 1993
  3933. + ***************
  3934. + *** 489,497 ****
  3935. + --- 489,506 ----
  3936. +               }
  3937. +   # ifdef BSDJOBS
  3938. +               if (_gv.wanttty >= 0) {
  3939. + + #  ifdef __MINT__
  3940. + + /* see sh.proc.c */
  3941. + +                             extern void sig_tmp_ign();
  3942. + + 
  3943. + +                             (void) signal(SIGTSTP, sig_tmp_ign);
  3944. + +                             (void) signal(SIGTTIN, sig_tmp_ign);
  3945. + +                             (void) signal(SIGTTOU, sig_tmp_ign);
  3946. + + #  else
  3947. +                   (void) signal(SIGTSTP, SIG_DFL);
  3948. +                   (void) signal(SIGTTIN, SIG_DFL);
  3949. +                   (void) signal(SIGTTOU, SIG_DFL);
  3950. + + #  endif
  3951. +               }
  3952. +   # endif /* BSDJOBS */
  3953. +   
  3954. + ***************
  3955. + *** 612,619 ****
  3956. + --- 621,630 ----
  3957. +       execute(t->t_dcdr, _gv.wanttty, pv, pipeout);
  3958. +       t->t_dcar->t_dflg |= F_PIPEOUT |
  3959. +           (t->t_dflg & (F_PIPEIN | F_AMPERSAND | F_STDERR | F_NOINTERRUPT));
  3960. + + # ifndef __MINT__
  3961. +       if (_gv.wanttty > 0)
  3962. +           _gv.wanttty = 0;    /* got tty already */
  3963. + + # endif
  3964. +       execute(t->t_dcar, _gv.wanttty, pipein, pv);
  3965. +   #else /* !BACKPIPE */
  3966. +       t->t_dcar->t_dflg |= F_PIPEOUT |
  3967. + ***************
  3968. + *** 621,628 ****
  3969. + --- 632,641 ----
  3970. +       execute(t->t_dcar, _gv.wanttty, pipein, pv);
  3971. +       t->t_dcdr->t_dflg |= F_PIPEIN | (t->t_dflg &
  3972. +               (F_PIPEOUT | F_AMPERSAND | F_NOFORK | F_NOINTERRUPT));
  3973. + + # ifndef __MINT__
  3974. +       if (_gv.wanttty > 0)
  3975. +           _gv.wanttty = 0;    /* got tty already */
  3976. + + # endif
  3977. +       execute(t->t_dcdr, _gv.wanttty, pv, pipeout);
  3978. +   #endif /* BACKPIPE */
  3979. +       break;
  3980. + ***************
  3981. + *** 795,812 ****
  3982. + --- 808,839 ----
  3983. +           (void) dmove(fd, 0);
  3984. +       }
  3985. +       else if (flags & F_PIPEIN) {
  3986. + + #ifdef __MINT__
  3987. + +             (void) dup2(pipein[0], 0);
  3988. + + #else
  3989. +           (void) close(0);
  3990. +           (void) dup(pipein[0]);
  3991. + + #endif
  3992. +           (void) close(pipein[0]);
  3993. +           (void) close(pipein[1]);
  3994. +       }
  3995. +       else if ((flags & F_NOINTERRUPT) && tpgrp == -1) {
  3996. + + #ifdef __MINT__
  3997. + +             int fd = open(_PATH_DEVNULL, O_RDONLY);
  3998. + +             (void) dup2(fd, 0);
  3999. + +             (void) close(fd);
  4000. + + #else
  4001. +           (void) close(0);
  4002. +           (void) open(_PATH_DEVNULL, O_RDONLY);
  4003. + + #endif
  4004. +       }
  4005. +       else {
  4006. + + #ifdef __MINT__
  4007. + +             (void) dup2(OLDSTD, 0);
  4008. + + #else
  4009. +           (void) close(0);
  4010. +           (void) dup(OLDSTD);
  4011. + + #endif
  4012. +   #if defined(CLOSE_ON_EXEC) && defined(CLEX_DUPS)
  4013. +           /*
  4014. +            * PWP: Unlike Bezerkeley 4.3, FIONCLEX for Pyramid is preserved
  4015. + ***************
  4016. + *** 853,865 ****
  4017. + --- 880,900 ----
  4018. +       is1atty = isatty(1);
  4019. +       }
  4020. +       else if (flags & F_PIPEOUT) {
  4021. + + #ifdef __MINT__
  4022. + +         (void) dup2(pipeout[1], 1);
  4023. + + #else
  4024. +       (void) close(1);
  4025. +       (void) dup(pipeout[1]);
  4026. + + #endif
  4027. +       is1atty = 0;
  4028. +       }
  4029. +       else {
  4030. + + #ifdef __MINT__
  4031. + +         (void) dup2(SHOUT, 1);
  4032. + + #else
  4033. +       (void) close(1);
  4034. +       (void) dup(SHOUT);
  4035. + + #endif
  4036. +       is1atty = isoutatty;
  4037. +   # if defined(CLOSE_ON_EXEC) && defined(CLEX_DUPS)
  4038. +       (void) close_on_exec(1, 0);
  4039. + ***************
  4040. + *** 868,878 ****
  4041. + --- 903,921 ----
  4042. +   
  4043. +       (void) close(2);
  4044. +       if (flags & F_STDERR) {
  4045. + + #ifdef __MINT__
  4046. + +         (void) dup2(1, 2);
  4047. + + #else
  4048. +       (void) dup(1);
  4049. + + #endif
  4050. +       is2atty = is1atty;
  4051. +       }
  4052. +       else {
  4053. + + #ifdef __MINT__
  4054. + +         (void) dup2(SHDIAG, 2);
  4055. + + #else
  4056. +       (void) dup(SHDIAG);
  4057. + + #endif
  4058. +       is2atty = isdiagatty;
  4059. +   # if defined(CLOSE_ON_EXEC) && defined(CLEX_DUPS)
  4060. +       (void) close_on_exec(2, 0);
  4061. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,set.c ./sh,set.c
  4062. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,set.c    Tue Nov 24 13:04:22 1992
  4063. + --- ./sh,set.c    Fri Feb 26 02:42:28 1993
  4064. + ***************
  4065. + *** 54,59 ****
  4066. + --- 54,62 ----
  4067. +   static    struct varent    *madrof        __P((Char *, struct varent *));
  4068. +   static    void         unsetv1    __P((struct varent *));
  4069. +   static    void         exportpath    __P((Char **));
  4070. + + #ifdef __MINT__
  4071. + + static  void             exportsuffixes __P((Char **));
  4072. + + #endif
  4073. +   static    void         balance    __P((struct varent *, int, int));
  4074. +   
  4075. +   /*
  4076. + ***************
  4077. + *** 68,73 ****
  4078. + --- 71,82 ----
  4079. +       exportpath(adrof(STRpath)->vec);
  4080. +       dohash(NULL, NULL);
  4081. +       }
  4082. + + #ifdef __MINT__
  4083. + +     else if (eq(vp, STRsuffixes)) {
  4084. + +         exportsuffixes(adrof(STRsuffixes)->vec);
  4085. + +         dohash(NULL, NULL);
  4086. + +     }
  4087. + + #endif
  4088. +       else if (eq(vp, STRhistchars)) {
  4089. +       register Char *pn = value(vp);
  4090. +   
  4091. + ***************
  4092. + *** 418,424 ****
  4093. +       }
  4094. +       else {
  4095. +       num = 4;        /* confuse lint */
  4096. + !     if (sizeof(int) == num && ((unsigned int) n) == 2147483648) {
  4097. +           *putp++ = '2';
  4098. +           n = 147483648;
  4099. +       }
  4100. + --- 427,433 ----
  4101. +       }
  4102. +       else {
  4103. +       num = 4;        /* confuse lint */
  4104. + !     if (sizeof(int) == num && ((unsigned int) n) == 2147483648U) {
  4105. +           *putp++ = '2';
  4106. +           n = 147483648;
  4107. +       }
  4108. + ***************
  4109. + *** 730,735 ****
  4110. + --- 739,768 ----
  4111. +       }
  4112. +       tsetenv(STRKPATH, exppath);
  4113. +   }
  4114. + + 
  4115. + + #ifdef __MINT__
  4116. + + static void
  4117. + + exportsuffixes(val)
  4118. + +     Char  **val;
  4119. + + {
  4120. + +     Char    expsuff[BUFSIZE];
  4121. + +     static Char STRcomma[] = { ',' , '\0' };
  4122. + + 
  4123. + +     expsuff[0] = 0;
  4124. + +     if (val)
  4125. + +         while (*val) {
  4126. + +             if (Strlen(*val) + Strlen(expsuff) + 2 > BUFSIZE) {
  4127. + +                 xprintf("Warning: ridiculously long SUFFIXES truncated\n");
  4128. + +                 break;
  4129. + +             }
  4130. + +             (void) Strcat(expsuff, *val++);
  4131. + +             if (*val == 0 || eq(*val, STRRparen))
  4132. + +                 break;
  4133. + +             (void) Strcat(expsuff, STRcomma);
  4134. + +         }
  4135. + +     Setenv(STRSUFFIXES, expsuff);
  4136. + + }
  4137. + + #endif /* __MINT__ */
  4138. +   
  4139. +   #ifndef lint
  4140. +    /*
  4141. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,time.c ./sh,time.c
  4142. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,time.c    Tue Nov 24 13:04:22 1992
  4143. + --- ./sh,time.c    Fri Feb 26 02:46:54 1993
  4144. + ***************
  4145. + *** 178,183 ****
  4146. + --- 178,184 ----
  4147. +   {
  4148. +       tvadd(&ru->ru_utime, &ru2->ru_utime);
  4149. +       tvadd(&ru->ru_stime, &ru2->ru_stime);
  4150. + + #ifndef __MINT__
  4151. +       if (ru2->ru_maxrss > ru->ru_maxrss)
  4152. +       ru->ru_maxrss = ru2->ru_maxrss;
  4153. +   
  4154. + ***************
  4155. + *** 194,199 ****
  4156. + --- 195,201 ----
  4157. +       ru->ru_nsignals += ru2->ru_nsignals;
  4158. +       ru->ru_nvcsw += ru2->ru_nvcsw;
  4159. +       ru->ru_nivcsw += ru2->ru_nivcsw;
  4160. + + #endif
  4161. +   }
  4162. +   
  4163. +   #else /* BSDTIMES */
  4164. + ***************
  4165. + *** 325,331 ****
  4166. + --- 327,337 ----
  4167. +       int     ms =
  4168. +       (e->tv_sec - b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000;
  4169. +   
  4170. + + # ifdef __MINT__
  4171. + +     cp = "%Uu %Ss %E %P";
  4172. + + # else
  4173. +       cp = "%Uu %Ss %E %P %X+%Dk %I+%Oio %Fpf+%Ww";
  4174. + + # endif
  4175. +   #else
  4176. +   # ifdef _SEQUENT_
  4177. +       int     ms =
  4178. + ***************
  4179. + *** 416,422 ****
  4180. +           xprintf("%ld.%01ld%%", i / 10, i % 10);    /* nn.n% */
  4181. +           break;
  4182. +   
  4183. + ! #ifdef BSDTIMES
  4184. +           case 'W':        /* number of swaps */
  4185. +           i = r1->ru_nswap - r0->ru_nswap;
  4186. +           xprintf("%ld", i);
  4187. + --- 422,428 ----
  4188. +           xprintf("%ld.%01ld%%", i / 10, i % 10);    /* nn.n% */
  4189. +           break;
  4190. +   
  4191. + ! #if defined(BSDTIMES) && !defined(__MINT__)
  4192. +           case 'W':        /* number of swaps */
  4193. +           i = r1->ru_nswap - r0->ru_nswap;
  4194. +           xprintf("%ld", i);
  4195. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,types.h ./sh,types.h
  4196. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh,types.h    Tue Nov 24 13:04:34 1992
  4197. + --- ./sh,types.h    Fri Feb 26 02:48:12 1993
  4198. + ***************
  4199. + *** 447,452 ****
  4200. + --- 447,460 ----
  4201. +   #endif /* convex */
  4202. +   
  4203. +   /*
  4204. + +  * MiNT
  4205. + +  */
  4206. + + #ifdef __MINT__
  4207. + + # define _SIGMASK_T
  4208. + + typedef long sigmask_t;
  4209. + + #endif
  4210. + + 
  4211. + + /*
  4212. +    * Alliant FX-2800/FX-80
  4213. +    */
  4214. +   #ifdef alliant
  4215. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh.c ./sh.c
  4216. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh.c    Tue Nov 24 13:04:16 1992
  4217. + --- ./sh.c    Sun Mar  7 17:43:04 1993
  4218. + ***************
  4219. + *** 118,123 ****
  4220. + --- 118,128 ----
  4221. +   static    void          mailchk    __P((void));
  4222. +   static    Char         **defaultpath    __P((void));
  4223. +   
  4224. + + #ifdef __MINT__
  4225. + + static  Char            **defaultsuffixes __P((void));
  4226. + + void    importsuffixes  __P((Char *));
  4227. + + #endif
  4228. + + 
  4229. +   int
  4230. +   main(argc, argv)
  4231. +       int     argc;
  4232. + ***************
  4233. + *** 229,234 ****
  4234. + --- 234,249 ----
  4235. +       loginsh = (argc == 1 && getppid() == 1);
  4236. +   #endif /* _VMS_POSIX */
  4237. +   
  4238. + + #ifdef __MINT__
  4239. + +     /* under MiNT, we're also a login shell if we ran from the desktop and
  4240. + +      * have no arguments
  4241. + +      */
  4242. + +     if (!loginsh && tempv[0][0] == 0 && !tempv[1]) {
  4243. + +         loginsh = 1;
  4244. + +         tempv[0] = "-tcsh";
  4245. + +     }
  4246. + + #endif
  4247. + + 
  4248. +       if (loginsh && **tempv != '-') {
  4249. +       /*
  4250. +        * Mangle the argv space
  4251. + ***************
  4252. + *** 373,379 ****
  4253. +       if (loginsh || (uid == 0)) {
  4254. +       if (*cp) {
  4255. +           /* only for login shells or root and we must have a tty */
  4256. + !         if ((cp2 = Strrchr(cp, (Char) '/')) != NULL) {
  4257. +           cp = cp2 + 1;
  4258. +           }
  4259. +           if (!((Strncmp(cp, STRtty, 3) == 0) &&
  4260. + --- 388,394 ----
  4261. +       if (loginsh || (uid == 0)) {
  4262. +       if (*cp) {
  4263. +           /* only for login shells or root and we must have a tty */
  4264. + !         if ((cp2 = Lastslash(cp)) != NULL) {
  4265. +           cp = cp2 + 1;
  4266. +           }
  4267. +           if (!((Strncmp(cp, STRtty, 3) == 0) &&
  4268. + ***************
  4269. + *** 535,540 ****
  4270. + --- 550,564 ----
  4271. +        */
  4272. +       importpath(str2short(tcp));
  4273. +   
  4274. + + #ifdef __MINT__
  4275. + +     /*
  4276. + +      * set the suffix search list
  4277. + +      */
  4278. + +     if ((tcp = getenv("SUFFIXES")) == NULL)
  4279. + +         set1(STRsuffixes, defaultsuffixes(), &shvhed);
  4280. + +     else
  4281. + +         importsuffixes(SAVE(tcp));
  4282. + + #endif
  4283. +   
  4284. +       {
  4285. +       /* If the SHELL environment variable ends with "tcsh", set
  4286. + ***************
  4287. + *** 769,774 ****
  4288. + --- 793,808 ----
  4289. +        */
  4290. +       if (nofile == 0 && argc > 0) {
  4291. +       nofile = open(tempv[0], O_RDONLY);
  4292. + + #ifdef __MINT__
  4293. + +         /* maybe the user tried to execute "foo.csh" as just "foo"
  4294. + +          */
  4295. + +         if (nofile < 0) {
  4296. + +             char *cshfile = alloca(strlen(tempv[0]) + 5);
  4297. + +             strcpy(cshfile, tempv[0]);
  4298. + +             strcat(cshfile, ".csh");
  4299. + +             nofile = open(cshfile, O_RDONLY);
  4300. + +         }
  4301. + + #endif
  4302. +       if (nofile < 0) {
  4303. +           child = 1;        /* So this ... */
  4304. +           /* ... doesn't return */
  4305. + ***************
  4306. + *** 1165,1171 ****
  4307. +   srccat(cp, dp)
  4308. +       Char   *cp, *dp;
  4309. +   {
  4310. + !     if (cp[0] == '/' && cp[1] == '\0') 
  4311. +       return srcfile(short2str(dp), (mflag ? 0 : 1), 0, NULL);
  4312. +       else {
  4313. +       register Char *ep = Strspl(cp, dp);
  4314. + --- 1199,1205 ----
  4315. +   srccat(cp, dp)
  4316. +       Char   *cp, *dp;
  4317. +   {
  4318. + !     if (is_dirsep(cp[0]) && cp[1] == '\0') 
  4319. +       return srcfile(short2str(dp), (mflag ? 0 : 1), 0, NULL);
  4320. +       else {
  4321. +       register Char *ep = Strspl(cp, dp);
  4322. + ***************
  4323. + *** 1952,1957 ****
  4324. + --- 1986,1995 ----
  4325. +   #endif
  4326. +       int     i;
  4327. +   {
  4328. + + #ifdef __MINT__
  4329. + +     void rm_tmpfiles();
  4330. + +     rm_tmpfiles();                      /* remove temporary files, see below */
  4331. + + #endif
  4332. +   #ifdef TESLA
  4333. +       if (loginsh && do_logout) {
  4334. +       /* this is to send hangup signal to the develcon */
  4335. + ***************
  4336. + *** 2018,2020 ****
  4337. + --- 2056,2196 ----
  4338. +       *blkp = NULL;
  4339. +       return (blk);
  4340. +   }
  4341. + + 
  4342. + + #ifdef __MINT__
  4343. + + /*
  4344. + +  * unlink() doesn't always work on an open file, so we try to arrange
  4345. + +  * to remove temporary files (e.g. for here documents) before exiting.
  4346. + +  */
  4347. + + 
  4348. + + struct tmpfile_rec {
  4349. + +         char *name;     /* the name of the temp. file */
  4350. + +         int pid;        /* the associated pid */
  4351. + +         struct tmpfile_rec *next;
  4352. + + } *root;
  4353. + + 
  4354. + + extern int __mint;
  4355. + + 
  4356. + + int
  4357. + + csh_tmpfile()
  4358. + + {
  4359. + +         extern char *tmpnam();
  4360. + +         struct tmpfile_rec *u;
  4361. + +         int fd;
  4362. + +         char *name;
  4363. + + 
  4364. + +         if ( !(name = tmpnam((char *)0)) )
  4365. + +                 return -1;
  4366. + + 
  4367. + +         fd = open(name, O_CREAT|O_EXCL|O_RDWR, 0600);
  4368. + +         if (fd < 0) {
  4369. + +                 free(name);
  4370. + +                 return -1;
  4371. + +         }
  4372. + + 
  4373. + + /* in MiNT 0.9 and above, we can often unlink a file and continue to use
  4374. + +  * it; some file systems may return EACCDN for unlinking an open file,
  4375. + +  * in which case we use the old method of unlinking the file at exit
  4376. + +  */
  4377. + +         if (__mint >= 9) {
  4378. + +                 if (unlink(name) == 0)
  4379. + +                         return fd;
  4380. + +         }
  4381. + + 
  4382. + + /* if the unlink failed, save the name for future deleting */
  4383. + + 
  4384. + +         u = (struct tmpfile_rec *)malloc(sizeof(*u));
  4385. + +         if (!u) {
  4386. + + /* would it be better to fail? I dunno, but at worst the user is left
  4387. + +  * with a junk file in a temporary directory
  4388. + +  */
  4389. + +                 return fd;
  4390. + +         }
  4391. + + 
  4392. + +         u->name = name;
  4393. + +         u->pid = getpid();
  4394. + +         u->next = root;
  4395. + +         root = u;
  4396. + +         return fd;
  4397. + + }
  4398. + + 
  4399. + + void
  4400. + + rm_tmpfiles()
  4401. + + {
  4402. + +         int pid = getpid();
  4403. + +         struct tmpfile_rec **old, *u;
  4404. + + 
  4405. + +         old = &root;
  4406. + +         u = root;
  4407. + +         while (u) {
  4408. + +                 if (u->pid == pid) {
  4409. + +                         (void) unlink(u->name);
  4410. + +                         *old = u->next;
  4411. + +                 } else {
  4412. + +                         old = &u->next;
  4413. + +                 }
  4414. + +                 u = u->next;
  4415. + +         }
  4416. + + }
  4417. + + 
  4418. + + /* MiNT suffix stuff
  4419. + +  */
  4420. + + 
  4421. + + void
  4422. + + importsuffixes(cp)
  4423. + +     Char   *cp;
  4424. + + {
  4425. + +     register int i = 0;
  4426. + +     register Char *dp;
  4427. + +     register Char **pv;
  4428. + +     int     c;
  4429. + + 
  4430. + +     for (dp = cp; *dp; dp++)
  4431. + +         if (*dp == ',')
  4432. + +             i++;
  4433. + +     /*
  4434. + +      * i+2 where i is the number of ',' in the suffix list. There are i+1
  4435. + +      * suffixes plus we need room for a zero terminator.
  4436. + +      */
  4437. + +     pv = (Char **) xcalloc((size_t) (i + 2), sizeof(Char *));
  4438. + +     dp = cp;
  4439. + +     i = 0;
  4440. + +     if (*dp)
  4441. + +         for (;;) {
  4442. + +             if ((c = *dp) == ',' || c == 0) {
  4443. + +                 *dp = 0;
  4444. + +                 pv[i++] = Strsave(cp);
  4445. + +                 if (c) {
  4446. + +                     cp = dp + 1;
  4447. + +                     *dp = ',';
  4448. + +                 }
  4449. + +                 else
  4450. + +                     break;
  4451. + +             }
  4452. + +             dp++;
  4453. + +         }
  4454. + +     pv[i] = 0;
  4455. + +     set1(STRsuffixes, pv, &shvhed);
  4456. + + }
  4457. + + 
  4458. + + static Char **
  4459. + + defaultsuffixes()
  4460. + + {
  4461. + +     Char  **blk, **blkp;
  4462. + + 
  4463. + +     blkp = blk = (Char **) xmalloc((size_t) sizeof(Char *) * 9);
  4464. + + 
  4465. + +     *blkp++ = SAVE("ttp");
  4466. + +     *blkp++ = SAVE("prg");
  4467. + +     *blkp++ = SAVE("tos");
  4468. + +     *blkp++ = SAVE("app");
  4469. + +     *blkp++ = SAVE("gtp");
  4470. + +     *blkp++ = SAVE("csh");
  4471. + +     *blkp++ = SAVE("");
  4472. + +     *blkp = NULL;
  4473. + + 
  4474. + +     return (blk);
  4475. + + }
  4476. + + 
  4477. + + #endif /* __MINT__ */
  4478. + + 
  4479. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh.h ./sh.h
  4480. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/sh.h    Tue Nov 24 13:04:24 1992
  4481. + --- ./sh.h    Fri Feb 26 01:46:40 1993
  4482. + ***************
  4483. + *** 177,183 ****
  4484. +   #ifdef _SEQUENT_
  4485. +   # include <sys/procstats.h>
  4486. +   #endif /* _SEQUENT_ */
  4487. + ! #if defined(POSIX) || SYSVREL > 0
  4488. +   # include <sys/times.h>
  4489. +   #endif /* POSIX || SYSVREL > 0 */
  4490. +   
  4491. + --- 177,183 ----
  4492. +   #ifdef _SEQUENT_
  4493. +   # include <sys/procstats.h>
  4494. +   #endif /* _SEQUENT_ */
  4495. + ! #if defined(POSIX) || SYSVREL > 0 || defined(__MINT__)
  4496. +   # include <sys/times.h>
  4497. +   #endif /* POSIX || SYSVREL > 0 */
  4498. +   
  4499. + ***************
  4500. + *** 190,195 ****
  4501. + --- 190,199 ----
  4502. +   #endif /* _MINIX && vmsposix atp */
  4503. +   #include <sys/stat.h>
  4504. +   
  4505. + + #ifdef __MINT__
  4506. + + #include <support.h>
  4507. + + #endif
  4508. + + 
  4509. +   #if defined(BSDTIMES) || defined(BSDLIMIT)
  4510. +   # include <sys/time.h>
  4511. +   # if SYSVREL>3 && !defined(sgi)
  4512. + ***************
  4513. + *** 223,229 ****
  4514. +   # include <sys/ttold.h>
  4515. +   #endif /* sonyrisc */
  4516. +   
  4517. + ! #ifdef POSIX
  4518. +   /*
  4519. +    * We should be using setpgid and setpgid
  4520. +    * by now, but in some systems we use the
  4521. + --- 227,233 ----
  4522. +   # include <sys/ttold.h>
  4523. +   #endif /* sonyrisc */
  4524. +   
  4525. + ! #if defined(POSIX) || defined(__MINT__)
  4526. +   /*
  4527. +    * We should be using setpgid and setpgid
  4528. +    * by now, but in some systems we use the
  4529. + ***************
  4530. + *** 289,294 ****
  4531. + --- 293,305 ----
  4532. +   
  4533. +   #include <errno.h>
  4534. +   
  4535. + + #ifdef __MINT__
  4536. + + /* undef E_SEEK from errno.h */
  4537. + + # undef E_SEEK
  4538. + + # define ENOTDIR EPATH
  4539. + + # define ESPIPE EINVAL
  4540. + + #endif
  4541. + + 
  4542. +   #include <setjmp.h>
  4543. +   
  4544. +   #if __STDC__
  4545. + ***************
  4546. + *** 353,358 ****
  4547. + --- 364,384 ----
  4548. +   # endif 
  4549. +   #endif 
  4550. +   
  4551. + + #ifndef DOSFS
  4552. + + # define is_dirsep(c)   ((c) == '/')
  4553. + + # define is_abspath(p)  (is_dirsep(*(p)))
  4554. + + # define lastslash(p)   (strrchr((p), '/'))
  4555. + + # define Lastslash(p)   (Strrchr((p), '/'))
  4556. + + # define has_slash(p)   (any((p), '/'))
  4557. + + # define Has_slash(p)   (Strrchr((p), '/'))
  4558. + + #else
  4559. + + extern int      is_dirsep       __P((int));
  4560. + + extern int      is_abspath      __P((Char *));
  4561. + + extern char *   lastslash       __P((char *));
  4562. + + extern Char *   Lastslash       __P((Char *));
  4563. + + extern int      has_slash       __P((char *));
  4564. + + extern int      Has_slash       __P((Char *));
  4565. + + #endif
  4566. +   
  4567. +   typedef int bool;
  4568. +   
  4569. + Only in .: sldiffs
  4570. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,alloc.c ./tc,alloc.c
  4571. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,alloc.c    Tue Nov 24 13:04:32 1992
  4572. + --- ./tc,alloc.c    Fri Feb 26 02:57:12 1993
  4573. + ***************
  4574. + *** 53,58 ****
  4575. + --- 53,65 ----
  4576. +   
  4577. +   #ifndef SYSMALLOC
  4578. +   
  4579. + + #ifdef __MINT__
  4580. + + /* need large stack because we alloc from stack (cause tcsh assumes
  4581. + +  * continuus memory which MiNT does not provide)
  4582. + +  */
  4583. + + long _stksize = -128*1024L;
  4584. + + #endif
  4585. + + 
  4586. +   #undef RCHECK
  4587. +   #undef DEBUG
  4588. +   
  4589. + ***************
  4590. + *** 244,253 ****
  4591. + --- 251,262 ----
  4592. +       memtop = (char *) op;
  4593. +       if (membot == NULL)
  4594. +       membot = memtop;
  4595. + + #ifndef __MINT__
  4596. +       if ((int) op & 0x3ff) {
  4597. +       memtop = (char *) sbrk(1024 - ((int) op & 0x3ff));
  4598. +       memtop += 1024 - ((int) op & 0x3ff);
  4599. +       }
  4600. + + #endif
  4601. +   
  4602. +       /* take 2k unless the block is bigger than that */
  4603. +       rnu = (bucket <= 8) ? 11 : bucket + 3;
  4604. + ***************
  4605. + *** 469,475 ****
  4606. +   
  4607. +       n = n ? n : 1;
  4608. +   
  4609. + ! #ifndef _VMS_POSIX
  4610. +       if (membot == NULL)
  4611. +       membot == (char*) sbrk(0);
  4612. +   #endif /* !_VMS_POSIX */
  4613. + --- 478,484 ----
  4614. +   
  4615. +       n = n ? n : 1;
  4616. +   
  4617. + ! #if !defined(_VMS_POSIX) && !defined(__MINT__)
  4618. +       if (membot == NULL)
  4619. +       membot == (char*) sbrk(0);
  4620. +   #endif /* !_VMS_POSIX */
  4621. + ***************
  4622. + *** 478,484 ****
  4623. +       child++;
  4624. +       stderror(ERR_NOMEM);
  4625. +       }
  4626. + ! #ifdef _VMS_POSIX
  4627. +       if (memtop < ((char *) ptr) + n)
  4628. +       memtop = ((char *) ptr) + n;
  4629. +       if (membot == NULL)
  4630. + --- 487,493 ----
  4631. +       child++;
  4632. +       stderror(ERR_NOMEM);
  4633. +       }
  4634. + ! #if defined(_VMS_POSIX) || defined(__MINT__)
  4635. +       if (memtop < ((char *) ptr) + n)
  4636. +       memtop = ((char *) ptr) + n;
  4637. +       if (membot == NULL)
  4638. + ***************
  4639. + *** 496,509 ****
  4640. +   
  4641. +       n = n ? n : 1;
  4642. +   
  4643. +       if (membot == NULL)
  4644. +       membot == (char*) sbrk(0);
  4645. +   
  4646. +       if ((ptr = (p ? realloc(p, n) : malloc(n))) == (ptr_t) 0) {
  4647. +       child++;
  4648. +       stderror(ERR_NOMEM);
  4649. +       }
  4650. + ! #ifdef _VMS_POSIX
  4651. +       if (memtop < ((char *) ptr) + n)
  4652. +       memtop = ((char *) ptr) + n;
  4653. +       if (membot == NULL)
  4654. + --- 505,520 ----
  4655. +   
  4656. +       n = n ? n : 1;
  4657. +   
  4658. + + #ifndef __MINT__
  4659. +       if (membot == NULL)
  4660. +       membot == (char*) sbrk(0);
  4661. + + #endif
  4662. +   
  4663. +       if ((ptr = (p ? realloc(p, n) : malloc(n))) == (ptr_t) 0) {
  4664. +       child++;
  4665. +       stderror(ERR_NOMEM);
  4666. +       }
  4667. + ! #if defined(_VMS_POSIX) || defined(__MINT__)
  4668. +       if (memtop < ((char *) ptr) + n)
  4669. +       memtop = ((char *) ptr) + n;
  4670. +       if (membot == NULL)
  4671. + ***************
  4672. + *** 522,529 ****
  4673. + --- 533,542 ----
  4674. +       n *= s;
  4675. +       n = n ? n : 1;
  4676. +   
  4677. + + #ifndef __MINT__
  4678. +       if (membot == NULL)
  4679. +       membot == (char*) sbrk(0);
  4680. + + #endif
  4681. +   
  4682. +       if ((ptr = malloc(n)) == (ptr_t) 0) {
  4683. +       child++;
  4684. + ***************
  4685. + *** 536,542 ****
  4686. +           *sptr++ = 0;
  4687. +       while (--n);
  4688. +   
  4689. + ! #ifdef _VMS_POSIX
  4690. +       if (memtop < ((char *) ptr) + n)
  4691. +       memtop = ((char *) ptr) + n;
  4692. +       if (membot == NULL)
  4693. + --- 549,555 ----
  4694. +           *sptr++ = 0;
  4695. +       while (--n);
  4696. +   
  4697. + ! #if defined(_VMS_POSIX) || defined(__MINT__)
  4698. +       if (memtop < ((char *) ptr) + n)
  4699. +       memtop = ((char *) ptr) + n;
  4700. +       if (membot == NULL)
  4701. + ***************
  4702. + *** 592,598 ****
  4703. +           (unsigned long) membot, (unsigned long) memtop,
  4704. +           (unsigned long) sbrk(0));
  4705. +   #else
  4706. + ! #ifndef _VMS_POSIX
  4707. +       memtop = (char *) sbrk(0);
  4708. +   #endif /* !_VMS_POSIX */
  4709. +       xprintf("Allocated memory from 0x%lx to 0x%lx (%ld).\n",
  4710. + --- 605,611 ----
  4711. +           (unsigned long) membot, (unsigned long) memtop,
  4712. +           (unsigned long) sbrk(0));
  4713. +   #else
  4714. + ! #if !defined(_VMS_POSIX) && !defined(__MINT__)
  4715. +       memtop = (char *) sbrk(0);
  4716. +   #endif /* !_VMS_POSIX */
  4717. +       xprintf("Allocated memory from 0x%lx to 0x%lx (%ld).\n",
  4718. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,const.c ./tc,const.c
  4719. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,const.c    Tue Nov 24 13:04:32 1992
  4720. + --- ./tc,const.c    Fri Feb 26 03:11:00 1993
  4721. + ***************
  4722. + *** 77,91 ****
  4723. + --- 77,101 ----
  4724. +   Char STRhistfile[]     = { 'h', 'i', 's', 't', 'f', 'i', 'l', 'e', '\0' };
  4725. +   Char STRsource[]        = { 's', 'o', 'u', 'r', 'c', 'e', '\0' };
  4726. +   Char STRmh[]            = { '-', 'h', '\0' };
  4727. + + #ifndef DOSFS
  4728. +   Char STRtildothist[]    = { '~', '/', '.', 'h', 'i', 's', 't', 'o', 'r', 
  4729. +                       'y', '\0' };
  4730. + + #else
  4731. + + Char STRtildothist[]    = { '~', '/', 'h', 'i', 's', 't', 'o', 'r', 'y',
  4732. + +                             '.', 'c', 's', 'h', '\0' };
  4733. + + #endif
  4734. +   
  4735. +   #ifdef KANJI
  4736. +   Char STRnokanji[]       = { 'n', 'o', 'k', 'a', 'n', 'j', 'i', '\0' };
  4737. +   #endif
  4738. +   
  4739. + + #ifndef DOSFS
  4740. +   Char STRtildotdirs[]    = { '~', '/', '.', 'c', 's', 'h', 'd', 'i', 'r',
  4741. +                   's', '\0' };
  4742. + + #else
  4743. + + Char STRtildotdirs[]    = { '~', '/', 'c', 's', 'h', 'd', 'i', 'r', 's',
  4744. + +                             '.', 'c', 's', 'h', '\0' };
  4745. + + #endif
  4746. +   Char STRdirsfile[]      = { 'd', 'i', 'r', 's', 'f', 'i', 'l', 'e', '\0' };
  4747. +   Char STRsavedirs[]      = { 's', 'a', 'v', 'e', 'd', 'i', 'r', 's', '\0' };
  4748. +   Char STRloginsh[]       = { 'l', 'o', 'g', 'i', 'n', 's', 'h', '\0' };
  4749. + ***************
  4750. + *** 93,99 ****
  4751. + --- 103,114 ----
  4752. +   Char STRargv[]          = { 'a', 'r', 'g', 'v', '\0' };
  4753. +   Char STRsavehist[]      = { 's', 'a', 'v', 'e', 'h', 'i', 's', 't', '\0' };
  4754. +   Char STRnormal[]        = { 'n', 'o', 'r', 'm', 'a', 'l', '\0' };
  4755. + + #ifndef DOSFS
  4756. +   Char STRsldtlogout[]    = { '/', '.', 'l', 'o', 'g', 'o', 'u', 't', '\0' };
  4757. + + #else
  4758. + + Char STRsldtlogout[]    = { '/', 'l', 'o', 'g', 'o', 'u', 't', '.', 'c', 's',
  4759. + +                             'h', '\0' };
  4760. + + #endif
  4761. +   Char STRjobs[]          = { 'j', 'o', 'b', 's', '\0' };
  4762. +   Char STRsymhash[]       = { '#', ' ', '\0' };
  4763. +   Char STRsymarrow[]      = { '>', ' ', '\0' };
  4764. + ***************
  4765. + *** 197,205 ****
  4766. + --- 212,230 ----
  4767. +   Char STRwatch[]        = { 'w', 'a', 't', 'c', 'h', '\0' };
  4768. +   #endif /* HAVENOUTMP */
  4769. +   
  4770. + + #ifndef DOSFS
  4771. +   Char STRsldottcshrc[]    = { '/', '.', 't', 'c', 's', 'h', 'r', 'c', '\0' };
  4772. +   Char STRsldotcshrc[]    = { '/', '.', 'c', 's', 'h', 'r', 'c', '\0' };
  4773. +   Char STRsldotlogin[]    = { '/', '.', 'l', 'o', 'g', 'i', 'n', '\0' };
  4774. + + #else
  4775. + + Char STRsldottcshrc[]   = { '/', 't', 'c', 's', 'h', 'r', 'c', '.', 'c',
  4776. + +                             's', 'h', '\0' };
  4777. + + Char STRsldotcshrc[]    = { '/', 'c', 's', 'h', 'r', 'c', '.', 'c', 's',
  4778. + +                             'h', '\0' };
  4779. + + Char STRsldotlogin[]    = { '/', 'l', 'o', 'g', 'i', 'n', '.', 'c', 's',
  4780. + +                             'h', '\0' };
  4781. + + #endif
  4782. + + 
  4783. +   Char STRignoreeof[]    = { 'i', 'g', 'n', 'o', 'r', 'e', 'e', 'o', 'f', '\0' };
  4784. +   Char STRnoclobber[]    = { 'n', 'o', 'c', 'l', 'o', 'b', 'b', 'e', 'r', '\0' };
  4785. +   Char STRhelpcommand[]    = { 'h', 'e', 'l', 'p', 'c', 'o', 'm', 'm', 'a', 'n', 
  4786. + ***************
  4787. + *** 284,286 ****
  4788. + --- 309,317 ----
  4789. +   Char STRdown[] = { 'd', 'o', 'w', 'n', '\0' };
  4790. +   Char STRleft[] = { 'l', 'e', 'f', 't', '\0' };
  4791. +   Char STRright[] = { 'r', 'i', 'g', 'h', 't', '\0' };
  4792. + + 
  4793. + + #ifdef __MINT__
  4794. + + Char STRsuffixes[] = { 's', 'u', 'f', 'f', 'i', 'x', 'e', 's', '\0' };
  4795. + + Char STRSUFFIXES[] = { 'S', 'U', 'F', 'F', 'I', 'X', 'E', 'S', '\0' };
  4796. + + #endif
  4797. + + 
  4798. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,func.c ./tc,func.c
  4799. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,func.c    Tue Nov 24 13:04:32 1992
  4800. + --- ./tc,func.c    Fri Feb 26 03:18:42 1993
  4801. + ***************
  4802. + *** 276,282 ****
  4803. +       for (k = 0, i = 0; v[k] != NULL; k++) {
  4804. +           tmp = dnormalize(v[k], symlinks == SYM_IGNORE);
  4805. +           dp = &tmp[Strlen(tmp) - 1];
  4806. + !         if (*dp == '/' && dp != tmp)
  4807. +   #ifdef apollo
  4808. +           if (dp != &tmp[1])
  4809. +   #endif /* apollo */
  4810. + --- 276,282 ----
  4811. +       for (k = 0, i = 0; v[k] != NULL; k++) {
  4812. +           tmp = dnormalize(v[k], symlinks == SYM_IGNORE);
  4813. +           dp = &tmp[Strlen(tmp) - 1];
  4814. + !         if (is_dirsep(*dp) && dp != tmp)
  4815. +   #ifdef apollo
  4816. +           if (dp != &tmp[1])
  4817. +   #endif /* apollo */
  4818. + ***************
  4819. + *** 303,309 ****
  4820. + --- 303,313 ----
  4821. +           xprintf("%S:\n", tmp);
  4822. +           for (cp = tmp, dp = buf; *cp; *dp++ = (*cp++ | QUOTE))
  4823. +               continue;
  4824. + + #if 0
  4825. +           if (dp[-1] != (Char) ('/' | QUOTE))
  4826. + + #else
  4827. + +                 if (! ((dp[-1] & QUOTE) && is_dirsep(dp[-1] & ~QUOTE)))
  4828. + + #endif
  4829. +               *dp++ = '/';
  4830. +           else 
  4831. +               dp[-1] &= TRIM;
  4832. + ***************
  4833. + *** 435,441 ****
  4834. +       int     epl, vpl;
  4835. +   
  4836. +       if ((ep = getenv("EDITOR")) != NULL) {    /* if we have a value */
  4837. + !     if ((p = strrchr(ep, '/')) != NULL)     /* if it has a path */
  4838. +           ep = p + 1;        /* then we want only the last part */
  4839. +       }
  4840. +       else 
  4841. + --- 439,445 ----
  4842. +       int     epl, vpl;
  4843. +   
  4844. +       if ((ep = getenv("EDITOR")) != NULL) {    /* if we have a value */
  4845. + !     if ((p = lastslash(ep)) != NULL)     /* if it has a path */
  4846. +           ep = p + 1;        /* then we want only the last part */
  4847. +       }
  4848. +       else 
  4849. + ***************
  4850. + *** 442,448 ****
  4851. +       ep = "ed";
  4852. +   
  4853. +       if ((vp = getenv("VISUAL")) != NULL) {    /* if we have a value */
  4854. + !     if ((p = strrchr(vp, '/')) != NULL)     /* and it has a path */
  4855. +           vp = p + 1;        /* then we want only the last part */
  4856. +       }
  4857. +       else 
  4858. + --- 446,452 ----
  4859. +       ep = "ed";
  4860. +   
  4861. +       if ((vp = getenv("VISUAL")) != NULL) {    /* if we have a value */
  4862. + !     if ((p = lastslash(vp)) != NULL)     /* and it has a path */
  4863. +           vp = p + 1;        /* then we want only the last part */
  4864. +       }
  4865. +       else 
  4866. + ***************
  4867. + *** 462,468 ****
  4868. +           continue;
  4869. +           *cp = '\0';
  4870. +           
  4871. + !         if ((cp = strrchr(p, '/')) != NULL)    /* and it has a path */
  4872. +           cp = cp + 1;        /* then we want only the last part */
  4873. +           else
  4874. +           cp = p;            /* else we get all of it */
  4875. + --- 466,472 ----
  4876. +           continue;
  4877. +           *cp = '\0';
  4878. +           
  4879. + !         if ((cp = lastslash(p)) != NULL)    /* and it has a path */
  4880. +           cp = cp + 1;        /* then we want only the last part */
  4881. +           else
  4882. +           cp = p;            /* else we get all of it */
  4883. + ***************
  4884. + *** 1405,1417 ****
  4885. +       }
  4886. +       if (((h = value(STRhome)) != STRNULL) &&
  4887. +       (Strncmp(p = *hm, h, j = Strlen(h)) == 0) &&
  4888. + !     (p[j] == '/' || p[j] == '\0')) {
  4889. +       *hm = &p[j];
  4890. +       return STRNULL;
  4891. +       }
  4892. +       for (i = 0; i < tlength; i++)
  4893. +       if ((Strncmp(p = *hm, tcache[i].home, j = tcache[i].hlen) == 0) &&
  4894. + !         (p[j] == '/' || p[j] == '\0')) {
  4895. +           *hm = &p[j];
  4896. +           return tcache[i].user;
  4897. +       }
  4898. + --- 1409,1421 ----
  4899. +       }
  4900. +       if (((h = value(STRhome)) != STRNULL) &&
  4901. +       (Strncmp(p = *hm, h, j = Strlen(h)) == 0) &&
  4902. + !     (is_dirsep(p[j]) || p[j] == '\0')) {
  4903. +       *hm = &p[j];
  4904. +       return STRNULL;
  4905. +       }
  4906. +       for (i = 0; i < tlength; i++)
  4907. +       if ((Strncmp(p = *hm, tcache[i].home, j = tcache[i].hlen) == 0) &&
  4908. + !         (is_dirsep(p[j]) || p[j] == '\0')) {
  4909. +           *hm = &p[j];
  4910. +           return tcache[i].user;
  4911. +       }
  4912. + ***************
  4913. + *** 1471,1478 ****
  4914. + --- 1475,1490 ----
  4915. +   
  4916. +               if ((n = read(fd, tbuf, BUFSIZE)) <= 0)
  4917. +               goto eof;
  4918. + + #ifdef DOSTEXT
  4919. + +         /* we probably should strip the carriage returns, but
  4920. + +          * changing them to blanks will work just as well for most cases
  4921. + +          */
  4922. + +                     for (i = 0; i < n; i++)
  4923. + +                         buf[i] = (tbuf[i] == '\r') ? ' ' : tbuf[i];
  4924. + + #else
  4925. +               for (i = 0; i < n; i++)
  4926. +               buf[i] = tbuf[i];
  4927. + + #endif
  4928. +               p = buf;
  4929. +           }
  4930. +           n--;
  4931. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,os.c ./tc,os.c
  4932. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,os.c    Tue Nov 24 13:04:32 1992
  4933. + --- ./tc,os.c    Fri Feb 26 03:21:36 1993
  4934. + ***************
  4935. + *** 1036,1042 ****
  4936. +       /* look if we found root yet */
  4937. +       if (st_cur.st_ino == st_root.st_ino &&
  4938. +           DEV_DEV_COMPARE(st_cur.st_dev, st_root.st_dev)) {
  4939. + !         (void) strcpy(pathname, *pathptr != '/' ? "/" : pathptr);
  4940. +           return (pathname);
  4941. +       }
  4942. +   
  4943. + --- 1036,1042 ----
  4944. +       /* look if we found root yet */
  4945. +       if (st_cur.st_ino == st_root.st_ino &&
  4946. +           DEV_DEV_COMPARE(st_cur.st_dev, st_root.st_dev)) {
  4947. + !         (void) strcpy(pathname, !is_dirsep(*pathptr) ? "/" : pathptr);
  4948. +           return (pathname);
  4949. +       }
  4950. +   
  4951. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,os.h ./tc,os.h
  4952. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,os.h    Tue Nov 24 13:04:32 1992
  4953. + --- ./tc,os.h    Fri Feb 26 03:24:24 1993
  4954. + ***************
  4955. + *** 479,484 ****
  4956. + --- 479,485 ----
  4957. +   extern int qsort();
  4958. +   # endif
  4959. +   #else
  4960. + + # ifndef __MINT__
  4961. +   # ifndef hpux
  4962. +   #  if __GNUC__ != 2
  4963. +   extern int abort();
  4964. + ***************
  4965. + *** 490,495 ****
  4966. + --- 491,497 ----
  4967. +   extern void abort();
  4968. +   extern void qsort();
  4969. +   # endif
  4970. + + # endif /* !__MINT__ */
  4971. +   #endif    /* SUNOS4 */
  4972. +   extern void perror();
  4973. +   
  4974. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,promp.c ./tc,promp.c
  4975. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,promp.c    Tue Nov 24 13:04:34 1992
  4976. + --- ./tc,promp.c    Fri Feb 26 03:28:40 1993
  4977. + ***************
  4978. + *** 303,309 ****
  4979. +               else {
  4980. +               if ((scp != 'C') && (q = value(STRhome)) != STRNULL &&
  4981. +                   Strncmp(buff, q, (k = Strlen(q))) == 0 &&
  4982. + !                 (buff[k] == '/' || buff[k] == '\0')) {
  4983. +                   buff[--k] = '~';
  4984. +                   q = &buff[k];
  4985. +                   /* RWM - reset the path length */
  4986. + --- 303,309 ----
  4987. +               else {
  4988. +               if ((scp != 'C') && (q = value(STRhome)) != STRNULL &&
  4989. +                   Strncmp(buff, q, (k = Strlen(q))) == 0 &&
  4990. + !                 (is_dirsep(buff[k]) || buff[k] == '\0')) {
  4991. +                   buff[--k] = '~';
  4992. +                   q = &buff[k];
  4993. +                   /* RWM - reset the path length */
  4994. + ***************
  4995. + *** 312,322 ****
  4996. +               else {
  4997. +                   q = buff;
  4998. +                   /* RWM - in case first char is not '/' */
  4999. + !                 if (*q == '/') updirs = 0; else updirs = 1;
  5000. +               }
  5001. +               /* RWM - calculate elements in the path */
  5002. +               for (z = q; *z; z++) {
  5003. + !                 if (*z == '/') updirs++;
  5004. +                   continue;    /* find the end */
  5005. +               }
  5006. +               /* RWM - the ones we will skip can be found here */
  5007. + --- 312,322 ----
  5008. +               else {
  5009. +                   q = buff;
  5010. +                   /* RWM - in case first char is not '/' */
  5011. + !                 if (is_abspath(q)) updirs = 0; else updirs = 1;
  5012. +               }
  5013. +               /* RWM - calculate elements in the path */
  5014. +               for (z = q; *z; z++) {
  5015. + !                 if (is_dirsep(*z)) updirs++;
  5016. +                   continue;    /* find the end */
  5017. +               }
  5018. +               /* RWM - the ones we will skip can be found here */
  5019. + ***************
  5020. + *** 323,334 ****
  5021. +               updirs -= j;
  5022. +               
  5023. +               while (j-- > 0) {
  5024. + !                 while ((z > q) && (*z != '/'))
  5025. +                   z--;    /* back up */
  5026. +                   if (j && z > q)
  5027. +                   z--;
  5028. +               }
  5029. + !             if (*z == '/' && z != q)
  5030. +                   z++;
  5031. +   
  5032. +               /* RWM - if *q == '~' and *z != '~' then print */
  5033. + --- 323,334 ----
  5034. +               updirs -= j;
  5035. +               
  5036. +               while (j-- > 0) {
  5037. + !                 while ((z > q) && (!is_dirsep(*z)))
  5038. +                   z--;    /* back up */
  5039. +                   if (j && z > q)
  5040. +                   z--;
  5041. +               }
  5042. + !             if (is_dirsep(*z) && z != q)
  5043. +                   z++;
  5044. +   
  5045. +               /* RWM - if *q == '~' and *z != '~' then print */
  5046. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,sig.c ./tc,sig.c
  5047. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,sig.c    Tue Nov 24 13:04:34 1992
  5048. + --- ./tc,sig.c    Fri Feb 26 03:33:50 1993
  5049. + ***************
  5050. + *** 410,412 ****
  5051. + --- 410,433 ----
  5052. +       Synch_Cnt++;
  5053. +   }
  5054. +   #endif /* SIGSYNCH */
  5055. + + 
  5056. + + #ifdef __MINT__
  5057. + + /* MiNT has most BSD signal things, but not sigvec; punt */
  5058. + + void
  5059. + + mysigvec(sig, new, old)
  5060. + +         int sig;
  5061. + +         sigvec_t *new, *old;
  5062. + + {
  5063. + +         void (*oldhandler)();
  5064. + + 
  5065. + +         if (new) {
  5066. + +                 oldhandler = signal(sig, new->sv_handler);
  5067. + +         } else {
  5068. + +                 oldhandler = signal(sig, SIG_IGN);
  5069. + +                 signal(sig, oldhandler);
  5070. + +         }
  5071. + +         if (old)
  5072. + +                 old->sv_handler = oldhandler;
  5073. + + }
  5074. + + #endif /* __MINT__ */
  5075. + + 
  5076. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,sig.h ./tc,sig.h
  5077. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tc,sig.h    Tue Nov 24 13:04:34 1992
  5078. + --- ./tc,sig.h    Fri Feb 26 03:31:38 1993
  5079. + ***************
  5080. + *** 77,82 ****
  5081. + --- 77,90 ----
  5082. +   #  define NEEDsignal
  5083. +   # endif /* hpux */
  5084. +   
  5085. + + # ifdef __MINT__
  5086. + + #  define HAVE_SIGVEC
  5087. + + typedef struct sigvec {
  5088. + +         sigret_t (*sv_handler)();
  5089. + + } sigvec_t;
  5090. + + extern void mysigvec __P((int, sigvec_t *, sigvec_t *));
  5091. + + #endif /* __MINT__ */
  5092. + + 
  5093. +   # ifndef HAVE_SIGVEC
  5094. +   #  define mysigvec(a, b, c)    sigvec(a, b, c)
  5095. +   typedef struct sigvec sigvec_t;
  5096. + ***************
  5097. + *** 130,139 ****
  5098. + --- 138,149 ----
  5099. +   /*
  5100. +    * For 4.2bsd signals.
  5101. +    */
  5102. + + # ifndef __MINT__
  5103. +   # ifdef sigmask
  5104. +   #  undef sigmask
  5105. +   # endif /* sigmask */
  5106. +   # define    sigmask(s)    (1 << ((s)-1))
  5107. + + # endif /* !__MINT__ */
  5108. +   # ifdef POSIXSIGS
  5109. +   #  define     sigpause(a)    bsd_sigpause(a)
  5110. +   #  define     signal(a, b)    bsd_signal(a, b)
  5111. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tw,init.c ./tw,init.c
  5112. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tw,init.c    Tue Nov 24 13:04:26 1992
  5113. + --- ./tw,init.c    Fri Feb 26 03:41:34 1993
  5114. + ***************
  5115. + *** 247,259 ****
  5116. +       register Char **pv;
  5117. +       struct varent *v = adrof(STRpath);
  5118. +       struct varent *recexec = adrof(STRrecognize_only_executables);
  5119. +   
  5120. + - 
  5121. +       if (v == NULL) /* if no path */
  5122. +       return;
  5123. +   
  5124. +       for (pv = v->vec; *pv; pv++) {
  5125. + !     if (pv[0][0] != '/') {
  5126. +           tw_cmd_got |= TW_FL_REL;
  5127. +           continue;
  5128. +       }
  5129. + --- 247,262 ----
  5130. +       register Char **pv;
  5131. +       struct varent *v = adrof(STRpath);
  5132. +       struct varent *recexec = adrof(STRrecognize_only_executables);
  5133. + + #ifdef __MINT__
  5134. + +     struct varent *suffv = adrof(STRsuffixes);
  5135. + +     Char **suffpv;
  5136. + + #endif
  5137. +   
  5138. +       if (v == NULL) /* if no path */
  5139. +       return;
  5140. +   
  5141. +       for (pv = v->vec; *pv; pv++) {
  5142. + !     if (!is_abspath(pv[0])) {
  5143. +           tw_cmd_got |= TW_FL_REL;
  5144. +           continue;
  5145. +       }
  5146. + ***************
  5147. + *** 268,273 ****
  5148. + --- 271,289 ----
  5149. +           name = str2short(dp->d_name);
  5150. +           if (dp->d_ino == 0 || (recexec && !executable(dir, name, 0)))
  5151. +           continue;
  5152. + + #ifdef __MINT__
  5153. + +             {   char *s = rindex(name, '.');
  5154. + + 
  5155. + +                 if (s && suffv) {
  5156. + +                     for (suffpv = suffv->vec; *suffpv; suffpv++) {
  5157. + +                         if (!strcmp(s+1, short2str(*suffpv))) {
  5158. + +                             *s = 0; break;
  5159. + +                         }
  5160. + +                     }
  5161. + +                 }
  5162. + +             }
  5163. + + #endif /* __MINT__ */
  5164. + + 
  5165. +           tw_cmd_add(name);
  5166. +       }
  5167. +       (void) closedir(dirp);
  5168. + ***************
  5169. + *** 421,427 ****
  5170. +   
  5171. +           CLRDIR(tw_cmd_state.dfd)
  5172. +   
  5173. + !     while (*tw_cmd_state.pathv && tw_cmd_state.pathv[0][0] == '/')
  5174. +           tw_cmd_state.pathv++;
  5175. +       if ((ptr = *tw_cmd_state.pathv) != 0) {
  5176. +           /*
  5177. + --- 437,443 ----
  5178. +   
  5179. +           CLRDIR(tw_cmd_state.dfd)
  5180. +   
  5181. + !     while (*tw_cmd_state.pathv && is_abspath(tw_cmd_state.pathv[0]))
  5182. +           tw_cmd_state.pathv++;
  5183. +       if ((ptr = *tw_cmd_state.pathv) != 0) {
  5184. +           /*
  5185. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tw,parse.c ./tw,parse.c
  5186. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tw,parse.c    Tue Nov 24 13:04:26 1992
  5187. + --- ./tw,parse.c    Fri Feb 26 03:50:14 1993
  5188. + ***************
  5189. + *** 261,267 ****
  5190. +       case RECOGNIZE:
  5191. +       case RECOGNIZE_ALL:
  5192. +       if (adrof(STRautocorrect)) {
  5193. + !         if ((slshp = Strrchr(wordp, '/')) != NULL && slshp[1] != '\0') {
  5194. +           SearchNoDirErr = 1;
  5195. +           for (bptr = wordp; bptr < slshp; bptr++) {
  5196. +               /*
  5197. + --- 261,267 ----
  5198. +       case RECOGNIZE:
  5199. +       case RECOGNIZE_ALL:
  5200. +       if (adrof(STRautocorrect)) {
  5201. + !         if ((slshp = Lastslash(wordp)) != NULL && slshp[1] != '\0') {
  5202. +           SearchNoDirErr = 1;
  5203. +           for (bptr = wordp; bptr < slshp; bptr++) {
  5204. +               /*
  5205. + ***************
  5206. + *** 350,356 ****
  5207. +       items[0] = buffer;
  5208. +       items[1] = NULL;
  5209. +       ptr = items;
  5210. + !     count = (looking == TW_COMMAND && Strchr(wordp, '/') == 0) ? 
  5211. +           c_glob(&ptr) : 
  5212. +           t_glob(&ptr, looking == TW_COMMAND);
  5213. +       if (count > 0) {
  5214. + --- 350,356 ----
  5215. +       items[0] = buffer;
  5216. +       items[1] = NULL;
  5217. +       ptr = items;
  5218. + !     count = (looking == TW_COMMAND && !Has_slash(wordp)) ? 
  5219. +           c_glob(&ptr) : 
  5220. +           t_glob(&ptr, looking == TW_COMMAND);
  5221. +       if (count > 0) {
  5222. + ***************
  5223. + *** 1156,1162 ****
  5224. +       break;
  5225. +   
  5226. +       case TW_COMMAND:
  5227. + !     if (Strchr(word, '/')) {
  5228. +           looking = TW_FILE;
  5229. +           flags |= TW_EXEC_CHK;
  5230. +           flags |= TW_DIR_OK;
  5231. + --- 1156,1162 ----
  5232. +       break;
  5233. +   
  5234. +       case TW_COMMAND:
  5235. + !     if (Has_slash(word)) {
  5236. +           looking = TW_FILE;
  5237. +           flags |= TW_EXEC_CHK;
  5238. +           flags |= TW_DIR_OK;
  5239. + ***************
  5240. + *** 1197,1208 ****
  5241. +        */
  5242. +       flags |= (gpat == 0) ? TW_IGN_OK : TW_PAT_OK;
  5243. +   
  5244. + !     if ((*word == '~') && (Strchr(word, '/') == NULL)) {
  5245. +       looking = TW_LOGNAME;
  5246. +       target = name;
  5247. +       }
  5248. +       else if ((target = Strrchr(name, '$')) != 0 && 
  5249. + !          (Strchr(name, '/') == NULL)) {
  5250. +       target++;
  5251. +       looking = TW_VARIABLE;
  5252. +       }
  5253. + --- 1197,1208 ----
  5254. +        */
  5255. +       flags |= (gpat == 0) ? TW_IGN_OK : TW_PAT_OK;
  5256. +   
  5257. + !     if ((*word == '~') && (! Has_slash(word))) {
  5258. +       looking = TW_LOGNAME;
  5259. +       target = name;
  5260. +       }
  5261. +       else if ((target = Strrchr(name, '$')) != 0 && 
  5262. + !          (! Has_slash(name))) {
  5263. +       target++;
  5264. +       looking = TW_VARIABLE;
  5265. +       }
  5266. + ***************
  5267. + *** 1371,1377 ****
  5268. +   {
  5269. +       register Char *p;
  5270. +   
  5271. + !     p = Strrchr(path, '/');
  5272. +       if (p == NULL) {
  5273. +       copyn(name, path, MAXNAMLEN);
  5274. +       dir[0] = '\0';
  5275. + --- 1371,1377 ----
  5276. +   {
  5277. +       register Char *p;
  5278. +   
  5279. + !     p = Lastslash(path);
  5280. +       if (p == NULL) {
  5281. +       copyn(name, path, MAXNAMLEN);
  5282. +       dir[0] = '\0';
  5283. + ***************
  5284. + *** 1448,1454 ****
  5285. +   
  5286. +       switch (old[0]) {
  5287. +       case '~':
  5288. + !     for (p = new, o = &old[1]; *o && *o != '/'; *p++ = *o++) 
  5289. +           continue;
  5290. +       *p = '\0';
  5291. +       if (gethdir(new)) {
  5292. + --- 1448,1454 ----
  5293. +   
  5294. +       switch (old[0]) {
  5295. +       case '~':
  5296. + !     for (p = new, o = &old[1]; *o && !is_dirsep(*o); *p++ = *o++) 
  5297. +           continue;
  5298. +       *p = '\0';
  5299. +       if (gethdir(new)) {
  5300. + ***************
  5301. + *** 1516,1525 ****
  5302. +            */
  5303. +           for (p = edir; *p; p++)
  5304. +           continue;
  5305. + !         if (*--p == '/') {
  5306. +           for (p = nd; *p; p++)
  5307. +               continue;
  5308. + !         if (*--p != '/')
  5309. +               p = NULL;
  5310. +           }
  5311. +           for (d = edir, s = nd; (*d++ = *s++) != '\0';)
  5312. + --- 1516,1525 ----
  5313. +            */
  5314. +           for (p = edir; *p; p++)
  5315. +           continue;
  5316. + !         if (is_dirsep(*--p)) {
  5317. +           for (p = nd; *p; p++)
  5318. +               continue;
  5319. + !         if (!is_dirsep(*--p))
  5320. +               p = NULL;
  5321. +           }
  5322. +           for (d = edir, s = nd; (*d++ = *s++) != '\0';)
  5323. + diff +context /usr/users/staff/hohmuth/tmp/tcsh-6.03/tw,spell.c ./tw,spell.c
  5324. + *** /usr/users/staff/hohmuth/tmp/tcsh-6.03/tw,spell.c    Tue Nov 24 13:04:26 1992
  5325. + --- ./tw,spell.c    Fri Feb 26 03:54:20 1993
  5326. + ***************
  5327. + *** 53,60 ****
  5328. +       bool    foundslash = 0;
  5329. +       int     retval;
  5330. +   
  5331. +       for (;;) {
  5332. + !     while (*old == '/') {    /* skip '/' */
  5333. +           *new++ = *old++;
  5334. +           foundslash = 1;
  5335. +       }
  5336. + --- 53,67 ----
  5337. +       bool    foundslash = 0;
  5338. +       int     retval;
  5339. +   
  5340. + + #ifdef DOSFS
  5341. + +     /* skip drive specification, if any */
  5342. + +     if (*old && old[1] == ':' && is_dirsep(old[2])) {
  5343. + +         *new++ = *old++; *new++ = *old++;
  5344. + +     }
  5345. + + #endif
  5346. + + 
  5347. +       for (;;) {
  5348. + !     while (is_dirsep(*old)) {    /* skip '/' */
  5349. +           *new++ = *old++;
  5350. +           foundslash = 1;
  5351. +       }
  5352. + ***************
  5353. + *** 73,79 ****
  5354. +           if (p < guess + FILSIZ)
  5355. +               *p++ = *cp;
  5356. +       ws = p;
  5357. + !     for (; *old != '/' && *old != '\0'; old++)/* add current file name */
  5358. +           if (p < guess + FILSIZ)
  5359. +           *p++ = *old;
  5360. +       *p = '\0';        /* terminate it */
  5361. + --- 80,86 ----
  5362. +           if (p < guess + FILSIZ)
  5363. +               *p++ = *cp;
  5364. +       ws = p;
  5365. + !     for (; !is_dirsep(*old) && *old != '\0'; old++)/* add current file name */
  5366. +           if (p < guess + FILSIZ)
  5367. +           *p++ = *old;
  5368. +       *p = '\0';        /* terminate it */
  5369. + ***************
  5370. + *** 84,90 ****
  5371. +        */
  5372. +       /* (*should* say "looking for directory" whenever '/' is next...) */
  5373. +       retval = t_search(guess, p, SPELL, FILSIZ,
  5374. + !               looking == TW_COMMAND && (foundslash || *old != '/') ?
  5375. +                 TW_COMMAND : looking, 1, STRNULL, 0);
  5376. +       if (retval >= 4 || retval < 0)
  5377. +           return -1;        /* hopeless */
  5378. + --- 91,97 ----
  5379. +        */
  5380. +       /* (*should* say "looking for directory" whenever '/' is next...) */
  5381. +       retval = t_search(guess, p, SPELL, FILSIZ,
  5382. + !               looking == TW_COMMAND && (foundslash || !is_dirsep(*old)) ?
  5383. +                 TW_COMMAND : looking, 1, STRNULL, 0);
  5384. +       if (retval >= 4 || retval < 0)
  5385. +           return -1;        /* hopeless */
  5386. diff --context --new-file --recursive ../../store/tcsh-6.03/tc.alloc.c ./tc.alloc.c
  5387. *** ../../store/tcsh-6.03/tc.alloc.c    Tue Nov 24 13:04:32 1992
  5388. --- ./tc.alloc.c    Thu Mar 11 00:30:52 1993
  5389. ***************
  5390. *** 53,58 ****
  5391. --- 53,65 ----
  5392.   
  5393.   #ifndef SYSMALLOC
  5394.   
  5395. + #ifdef __MINT__
  5396. + /* need large stack because we alloc from stack (cause tcsh assumes
  5397. +  * continuus memory which MiNT does not provide)
  5398. +  */
  5399. + long _stksize = -128*1024L;
  5400. + #endif
  5401. + 
  5402.   #undef RCHECK
  5403.   #undef DEBUG
  5404.   
  5405. ***************
  5406. *** 244,253 ****
  5407. --- 251,262 ----
  5408.       memtop = (char *) op;
  5409.       if (membot == NULL)
  5410.       membot = memtop;
  5411. + #ifndef __MINT__
  5412.       if ((int) op & 0x3ff) {
  5413.       memtop = (char *) sbrk(1024 - ((int) op & 0x3ff));
  5414.       memtop += 1024 - ((int) op & 0x3ff);
  5415.       }
  5416. + #endif
  5417.   
  5418.       /* take 2k unless the block is bigger than that */
  5419.       rnu = (bucket <= 8) ? 11 : bucket + 3;
  5420. ***************
  5421. *** 449,454 ****
  5422. --- 458,469 ----
  5423.   
  5424.   #else                /* SYSMALLOC */
  5425.   
  5426. + #ifdef __MINT__
  5427. + /* Stack for MiNT
  5428. +  */
  5429. + long _stksize = 20*1024L;
  5430. + #endif /* __MINT__ */
  5431. + 
  5432.   /**
  5433.    ** ``Protected versions'' of malloc, realloc, calloc, and free
  5434.    **
  5435. ***************
  5436. *** 469,475 ****
  5437.   
  5438.       n = n ? n : 1;
  5439.   
  5440. ! #ifndef _VMS_POSIX
  5441.       if (membot == NULL)
  5442.       membot == (char*) sbrk(0);
  5443.   #endif /* !_VMS_POSIX */
  5444. --- 484,490 ----
  5445.   
  5446.       n = n ? n : 1;
  5447.   
  5448. ! #if !defined(_VMS_POSIX) && !defined(__MINT__)
  5449.       if (membot == NULL)
  5450.       membot == (char*) sbrk(0);
  5451.   #endif /* !_VMS_POSIX */
  5452. ***************
  5453. *** 478,484 ****
  5454.       child++;
  5455.       stderror(ERR_NOMEM);
  5456.       }
  5457. ! #ifdef _VMS_POSIX
  5458.       if (memtop < ((char *) ptr) + n)
  5459.       memtop = ((char *) ptr) + n;
  5460.       if (membot == NULL)
  5461. --- 493,499 ----
  5462.       child++;
  5463.       stderror(ERR_NOMEM);
  5464.       }
  5465. ! #if defined(_VMS_POSIX) || defined(__MINT__)
  5466.       if (memtop < ((char *) ptr) + n)
  5467.       memtop = ((char *) ptr) + n;
  5468.       if (membot == NULL)
  5469. ***************
  5470. *** 496,509 ****
  5471.   
  5472.       n = n ? n : 1;
  5473.   
  5474.       if (membot == NULL)
  5475.       membot == (char*) sbrk(0);
  5476.   
  5477.       if ((ptr = (p ? realloc(p, n) : malloc(n))) == (ptr_t) 0) {
  5478.       child++;
  5479.       stderror(ERR_NOMEM);
  5480.       }
  5481. ! #ifdef _VMS_POSIX
  5482.       if (memtop < ((char *) ptr) + n)
  5483.       memtop = ((char *) ptr) + n;
  5484.       if (membot == NULL)
  5485. --- 511,526 ----
  5486.   
  5487.       n = n ? n : 1;
  5488.   
  5489. + #ifndef __MINT__
  5490.       if (membot == NULL)
  5491.       membot == (char*) sbrk(0);
  5492. + #endif
  5493.   
  5494.       if ((ptr = (p ? realloc(p, n) : malloc(n))) == (ptr_t) 0) {
  5495.       child++;
  5496.       stderror(ERR_NOMEM);
  5497.       }
  5498. ! #if defined(_VMS_POSIX) || defined(__MINT__)
  5499.       if (memtop < ((char *) ptr) + n)
  5500.       memtop = ((char *) ptr) + n;
  5501.       if (membot == NULL)
  5502. ***************
  5503. *** 522,529 ****
  5504. --- 539,548 ----
  5505.       n *= s;
  5506.       n = n ? n : 1;
  5507.   
  5508. + #ifndef __MINT__
  5509.       if (membot == NULL)
  5510.       membot == (char*) sbrk(0);
  5511. + #endif
  5512.   
  5513.       if ((ptr = malloc(n)) == (ptr_t) 0) {
  5514.       child++;
  5515. ***************
  5516. *** 536,542 ****
  5517.           *sptr++ = 0;
  5518.       while (--n);
  5519.   
  5520. ! #ifdef _VMS_POSIX
  5521.       if (memtop < ((char *) ptr) + n)
  5522.       memtop = ((char *) ptr) + n;
  5523.       if (membot == NULL)
  5524. --- 555,561 ----
  5525.           *sptr++ = 0;
  5526.       while (--n);
  5527.   
  5528. ! #if defined(_VMS_POSIX) || defined(__MINT__)
  5529.       if (memtop < ((char *) ptr) + n)
  5530.       memtop = ((char *) ptr) + n;
  5531.       if (membot == NULL)
  5532. ***************
  5533. *** 592,598 ****
  5534.           (unsigned long) membot, (unsigned long) memtop,
  5535.           (unsigned long) sbrk(0));
  5536.   #else
  5537. ! #ifndef _VMS_POSIX
  5538.       memtop = (char *) sbrk(0);
  5539.   #endif /* !_VMS_POSIX */
  5540.       xprintf("Allocated memory from 0x%lx to 0x%lx (%ld).\n",
  5541. --- 611,617 ----
  5542.           (unsigned long) membot, (unsigned long) memtop,
  5543.           (unsigned long) sbrk(0));
  5544.   #else
  5545. ! #if !defined(_VMS_POSIX) && !defined(__MINT__)
  5546.       memtop = (char *) sbrk(0);
  5547.   #endif /* !_VMS_POSIX */
  5548.       xprintf("Allocated memory from 0x%lx to 0x%lx (%ld).\n",
  5549. diff --context --new-file --recursive ../../store/tcsh-6.03/tc.const.c ./tc.const.c
  5550. *** ../../store/tcsh-6.03/tc.const.c    Tue Nov 24 13:04:32 1992
  5551. --- ./tc.const.c    Fri Feb 26 03:11:00 1993
  5552. ***************
  5553. *** 77,91 ****
  5554. --- 77,101 ----
  5555.   Char STRhistfile[]     = { 'h', 'i', 's', 't', 'f', 'i', 'l', 'e', '\0' };
  5556.   Char STRsource[]        = { 's', 'o', 'u', 'r', 'c', 'e', '\0' };
  5557.   Char STRmh[]            = { '-', 'h', '\0' };
  5558. + #ifndef DOSFS
  5559.   Char STRtildothist[]    = { '~', '/', '.', 'h', 'i', 's', 't', 'o', 'r', 
  5560.                       'y', '\0' };
  5561. + #else
  5562. + Char STRtildothist[]    = { '~', '/', 'h', 'i', 's', 't', 'o', 'r', 'y',
  5563. +                             '.', 'c', 's', 'h', '\0' };
  5564. + #endif
  5565.   
  5566.   #ifdef KANJI
  5567.   Char STRnokanji[]       = { 'n', 'o', 'k', 'a', 'n', 'j', 'i', '\0' };
  5568.   #endif
  5569.   
  5570. + #ifndef DOSFS
  5571.   Char STRtildotdirs[]    = { '~', '/', '.', 'c', 's', 'h', 'd', 'i', 'r',
  5572.                   's', '\0' };
  5573. + #else
  5574. + Char STRtildotdirs[]    = { '~', '/', 'c', 's', 'h', 'd', 'i', 'r', 's',
  5575. +                             '.', 'c', 's', 'h', '\0' };
  5576. + #endif
  5577.   Char STRdirsfile[]      = { 'd', 'i', 'r', 's', 'f', 'i', 'l', 'e', '\0' };
  5578.   Char STRsavedirs[]      = { 's', 'a', 'v', 'e', 'd', 'i', 'r', 's', '\0' };
  5579.   Char STRloginsh[]       = { 'l', 'o', 'g', 'i', 'n', 's', 'h', '\0' };
  5580. ***************
  5581. *** 93,99 ****
  5582. --- 103,114 ----
  5583.   Char STRargv[]          = { 'a', 'r', 'g', 'v', '\0' };
  5584.   Char STRsavehist[]      = { 's', 'a', 'v', 'e', 'h', 'i', 's', 't', '\0' };
  5585.   Char STRnormal[]        = { 'n', 'o', 'r', 'm', 'a', 'l', '\0' };
  5586. + #ifndef DOSFS
  5587.   Char STRsldtlogout[]    = { '/', '.', 'l', 'o', 'g', 'o', 'u', 't', '\0' };
  5588. + #else
  5589. + Char STRsldtlogout[]    = { '/', 'l', 'o', 'g', 'o', 'u', 't', '.', 'c', 's',
  5590. +                             'h', '\0' };
  5591. + #endif
  5592.   Char STRjobs[]          = { 'j', 'o', 'b', 's', '\0' };
  5593.   Char STRsymhash[]       = { '#', ' ', '\0' };
  5594.   Char STRsymarrow[]      = { '>', ' ', '\0' };
  5595. ***************
  5596. *** 197,205 ****
  5597. --- 212,230 ----
  5598.   Char STRwatch[]        = { 'w', 'a', 't', 'c', 'h', '\0' };
  5599.   #endif /* HAVENOUTMP */
  5600.   
  5601. + #ifndef DOSFS
  5602.   Char STRsldottcshrc[]    = { '/', '.', 't', 'c', 's', 'h', 'r', 'c', '\0' };
  5603.   Char STRsldotcshrc[]    = { '/', '.', 'c', 's', 'h', 'r', 'c', '\0' };
  5604.   Char STRsldotlogin[]    = { '/', '.', 'l', 'o', 'g', 'i', 'n', '\0' };
  5605. + #else
  5606. + Char STRsldottcshrc[]   = { '/', 't', 'c', 's', 'h', 'r', 'c', '.', 'c',
  5607. +                             's', 'h', '\0' };
  5608. + Char STRsldotcshrc[]    = { '/', 'c', 's', 'h', 'r', 'c', '.', 'c', 's',
  5609. +                             'h', '\0' };
  5610. + Char STRsldotlogin[]    = { '/', 'l', 'o', 'g', 'i', 'n', '.', 'c', 's',
  5611. +                             'h', '\0' };
  5612. + #endif
  5613. + 
  5614.   Char STRignoreeof[]    = { 'i', 'g', 'n', 'o', 'r', 'e', 'e', 'o', 'f', '\0' };
  5615.   Char STRnoclobber[]    = { 'n', 'o', 'c', 'l', 'o', 'b', 'b', 'e', 'r', '\0' };
  5616.   Char STRhelpcommand[]    = { 'h', 'e', 'l', 'p', 'c', 'o', 'm', 'm', 'a', 'n', 
  5617. ***************
  5618. *** 284,286 ****
  5619. --- 309,317 ----
  5620.   Char STRdown[] = { 'd', 'o', 'w', 'n', '\0' };
  5621.   Char STRleft[] = { 'l', 'e', 'f', 't', '\0' };
  5622.   Char STRright[] = { 'r', 'i', 'g', 'h', 't', '\0' };
  5623. + 
  5624. + #ifdef __MINT__
  5625. + Char STRsuffixes[] = { 's', 'u', 'f', 'f', 'i', 'x', 'e', 's', '\0' };
  5626. + Char STRSUFFIXES[] = { 'S', 'U', 'F', 'F', 'I', 'X', 'E', 'S', '\0' };
  5627. + #endif
  5628. + 
  5629. diff --context --new-file --recursive ../../store/tcsh-6.03/tc.func.c ./tc.func.c
  5630. *** ../../store/tcsh-6.03/tc.func.c    Tue Nov 24 13:04:32 1992
  5631. --- ./tc.func.c    Thu Mar 11 03:10:24 1993
  5632. ***************
  5633. *** 276,282 ****
  5634.       for (k = 0, i = 0; v[k] != NULL; k++) {
  5635.           tmp = dnormalize(v[k], symlinks == SYM_IGNORE);
  5636.           dp = &tmp[Strlen(tmp) - 1];
  5637. !         if (*dp == '/' && dp != tmp)
  5638.   #ifdef apollo
  5639.           if (dp != &tmp[1])
  5640.   #endif /* apollo */
  5641. --- 276,282 ----
  5642.       for (k = 0, i = 0; v[k] != NULL; k++) {
  5643.           tmp = dnormalize(v[k], symlinks == SYM_IGNORE);
  5644.           dp = &tmp[Strlen(tmp) - 1];
  5645. !         if (is_dirsep(*dp) && dp != tmp)
  5646.   #ifdef apollo
  5647.           if (dp != &tmp[1])
  5648.   #endif /* apollo */
  5649. ***************
  5650. *** 303,309 ****
  5651. --- 303,313 ----
  5652.           xprintf("%S:\n", tmp);
  5653.           for (cp = tmp, dp = buf; *cp; *dp++ = (*cp++ | QUOTE))
  5654.               continue;
  5655. + #if 0
  5656.           if (dp[-1] != (Char) ('/' | QUOTE))
  5657. + #else
  5658. +                 if (! ((dp[-1] & QUOTE) && is_dirsep(dp[-1] & ~QUOTE)))
  5659. + #endif
  5660.               *dp++ = '/';
  5661.           else 
  5662.               dp[-1] &= TRIM;
  5663. ***************
  5664. *** 435,448 ****
  5665.       int     epl, vpl;
  5666.   
  5667.       if ((ep = getenv("EDITOR")) != NULL) {    /* if we have a value */
  5668. !     if ((p = strrchr(ep, '/')) != NULL)     /* if it has a path */
  5669.           ep = p + 1;        /* then we want only the last part */
  5670.       }
  5671.       else 
  5672.       ep = "ed";
  5673.   
  5674.       if ((vp = getenv("VISUAL")) != NULL) {    /* if we have a value */
  5675. !     if ((p = strrchr(vp, '/')) != NULL)     /* and it has a path */
  5676.           vp = p + 1;        /* then we want only the last part */
  5677.       }
  5678.       else 
  5679. --- 439,452 ----
  5680.       int     epl, vpl;
  5681.   
  5682.       if ((ep = getenv("EDITOR")) != NULL) {    /* if we have a value */
  5683. !     if ((p = lastslash(ep)) != NULL)     /* if it has a path */
  5684.           ep = p + 1;        /* then we want only the last part */
  5685.       }
  5686.       else 
  5687.       ep = "ed";
  5688.   
  5689.       if ((vp = getenv("VISUAL")) != NULL) {    /* if we have a value */
  5690. !     if ((p = lastslash(vp)) != NULL)     /* and it has a path */
  5691.           vp = p + 1;        /* then we want only the last part */
  5692.       }
  5693.       else 
  5694. ***************
  5695. *** 462,468 ****
  5696.           continue;
  5697.           *cp = '\0';
  5698.           
  5699. !         if ((cp = strrchr(p, '/')) != NULL)    /* and it has a path */
  5700.           cp = cp + 1;        /* then we want only the last part */
  5701.           else
  5702.           cp = p;            /* else we get all of it */
  5703. --- 466,472 ----
  5704.           continue;
  5705.           *cp = '\0';
  5706.           
  5707. !         if ((cp = lastslash(p)) != NULL)    /* and it has a path */
  5708.           cp = cp + 1;        /* then we want only the last part */
  5709.           else
  5710.           cp = p;            /* else we get all of it */
  5711. ***************
  5712. *** 1405,1417 ****
  5713.       }
  5714.       if (((h = value(STRhome)) != STRNULL) &&
  5715.       (Strncmp(p = *hm, h, j = Strlen(h)) == 0) &&
  5716. !     (p[j] == '/' || p[j] == '\0')) {
  5717.       *hm = &p[j];
  5718.       return STRNULL;
  5719.       }
  5720.       for (i = 0; i < tlength; i++)
  5721.       if ((Strncmp(p = *hm, tcache[i].home, j = tcache[i].hlen) == 0) &&
  5722. !         (p[j] == '/' || p[j] == '\0')) {
  5723.           *hm = &p[j];
  5724.           return tcache[i].user;
  5725.       }
  5726. --- 1409,1421 ----
  5727.       }
  5728.       if (((h = value(STRhome)) != STRNULL) &&
  5729.       (Strncmp(p = *hm, h, j = Strlen(h)) == 0) &&
  5730. !     (is_dirsep(p[j]) || p[j] == '\0')) {
  5731.       *hm = &p[j];
  5732.       return STRNULL;
  5733.       }
  5734.       for (i = 0; i < tlength; i++)
  5735.       if ((Strncmp(p = *hm, tcache[i].home, j = tcache[i].hlen) == 0) &&
  5736. !         (is_dirsep(p[j]) || p[j] == '\0')) {
  5737.           *hm = &p[j];
  5738.           return tcache[i].user;
  5739.       }
  5740. ***************
  5741. *** 1471,1478 ****
  5742. --- 1475,1490 ----
  5743.   
  5744.               if ((n = read(fd, tbuf, BUFSIZE)) <= 0)
  5745.               goto eof;
  5746. + #ifdef DOSTEXT
  5747. +         /* we probably should strip the carriage returns, but
  5748. +          * changing them to blanks will work just as well for most cases
  5749. +          */
  5750. +                     for (i = 0; i < n; i++)
  5751. +                         buf[i] = (tbuf[i] == '\r') ? ' ' : tbuf[i];
  5752. + #else
  5753.               for (i = 0; i < n; i++)
  5754.               buf[i] = tbuf[i];
  5755. + #endif
  5756.               p = buf;
  5757.           }
  5758.           n--;
  5759. ***************
  5760. *** 1666,1671 ****
  5761. --- 1678,1686 ----
  5762.       case '\0':    /* Whoa!! what the hell happened */
  5763.           return -1;
  5764.   
  5765. + #ifdef DOSTEXT
  5766. +     case '\r':
  5767. + #endif
  5768.       case '\n':    /* The end of the line. */
  5769.           if (ws) {    /* terminate the last word */
  5770.           *p = '\0';
  5771. diff --context --new-file --recursive ../../store/tcsh-6.03/tc.os.c ./tc.os.c
  5772. *** ../../store/tcsh-6.03/tc.os.c    Tue Nov 24 13:04:32 1992
  5773. --- ./tc.os.c    Fri Feb 26 03:21:36 1993
  5774. ***************
  5775. *** 1036,1042 ****
  5776.       /* look if we found root yet */
  5777.       if (st_cur.st_ino == st_root.st_ino &&
  5778.           DEV_DEV_COMPARE(st_cur.st_dev, st_root.st_dev)) {
  5779. !         (void) strcpy(pathname, *pathptr != '/' ? "/" : pathptr);
  5780.           return (pathname);
  5781.       }
  5782.   
  5783. --- 1036,1042 ----
  5784.       /* look if we found root yet */
  5785.       if (st_cur.st_ino == st_root.st_ino &&
  5786.           DEV_DEV_COMPARE(st_cur.st_dev, st_root.st_dev)) {
  5787. !         (void) strcpy(pathname, !is_dirsep(*pathptr) ? "/" : pathptr);
  5788.           return (pathname);
  5789.       }
  5790.   
  5791. diff --context --new-file --recursive ../../store/tcsh-6.03/tc.os.h ./tc.os.h
  5792. *** ../../store/tcsh-6.03/tc.os.h    Tue Nov 24 13:04:32 1992
  5793. --- ./tc.os.h    Fri Feb 26 03:24:24 1993
  5794. ***************
  5795. *** 479,484 ****
  5796. --- 479,485 ----
  5797.   extern int qsort();
  5798.   # endif
  5799.   #else
  5800. + # ifndef __MINT__
  5801.   # ifndef hpux
  5802.   #  if __GNUC__ != 2
  5803.   extern int abort();
  5804. ***************
  5805. *** 490,495 ****
  5806. --- 491,497 ----
  5807.   extern void abort();
  5808.   extern void qsort();
  5809.   # endif
  5810. + # endif /* !__MINT__ */
  5811.   #endif    /* SUNOS4 */
  5812.   extern void perror();
  5813.   
  5814. diff --context --new-file --recursive ../../store/tcsh-6.03/tc.prompt.c ./tc.prompt.c
  5815. *** ../../store/tcsh-6.03/tc.prompt.c    Tue Nov 24 13:04:34 1992
  5816. --- ./tc.prompt.c    Fri Feb 26 03:28:40 1993
  5817. ***************
  5818. *** 303,309 ****
  5819.               else {
  5820.               if ((scp != 'C') && (q = value(STRhome)) != STRNULL &&
  5821.                   Strncmp(buff, q, (k = Strlen(q))) == 0 &&
  5822. !                 (buff[k] == '/' || buff[k] == '\0')) {
  5823.                   buff[--k] = '~';
  5824.                   q = &buff[k];
  5825.                   /* RWM - reset the path length */
  5826. --- 303,309 ----
  5827.               else {
  5828.               if ((scp != 'C') && (q = value(STRhome)) != STRNULL &&
  5829.                   Strncmp(buff, q, (k = Strlen(q))) == 0 &&
  5830. !                 (is_dirsep(buff[k]) || buff[k] == '\0')) {
  5831.                   buff[--k] = '~';
  5832.                   q = &buff[k];
  5833.                   /* RWM - reset the path length */
  5834. ***************
  5835. *** 312,334 ****
  5836.               else {
  5837.                   q = buff;
  5838.                   /* RWM - in case first char is not '/' */
  5839. !                 if (*q == '/') updirs = 0; else updirs = 1;
  5840.               }
  5841.               /* RWM - calculate elements in the path */
  5842.               for (z = q; *z; z++) {
  5843. !                 if (*z == '/') updirs++;
  5844.                   continue;    /* find the end */
  5845.               }
  5846.               /* RWM - the ones we will skip can be found here */
  5847.               updirs -= j;
  5848.               
  5849.               while (j-- > 0) {
  5850. !                 while ((z > q) && (*z != '/'))
  5851.                   z--;    /* back up */
  5852.                   if (j && z > q)
  5853.                   z--;
  5854.               }
  5855. !             if (*z == '/' && z != q)
  5856.                   z++;
  5857.   
  5858.               /* RWM - if *q == '~' and *z != '~' then print */
  5859. --- 312,334 ----
  5860.               else {
  5861.                   q = buff;
  5862.                   /* RWM - in case first char is not '/' */
  5863. !                 if (is_abspath(q)) updirs = 0; else updirs = 1;
  5864.               }
  5865.               /* RWM - calculate elements in the path */
  5866.               for (z = q; *z; z++) {
  5867. !                 if (is_dirsep(*z)) updirs++;
  5868.                   continue;    /* find the end */
  5869.               }
  5870.               /* RWM - the ones we will skip can be found here */
  5871.               updirs -= j;
  5872.               
  5873.               while (j-- > 0) {
  5874. !                 while ((z > q) && (!is_dirsep(*z)))
  5875.                   z--;    /* back up */
  5876.                   if (j && z > q)
  5877.                   z--;
  5878.               }
  5879. !             if (is_dirsep(*z) && z != q)
  5880.                   z++;
  5881.   
  5882.               /* RWM - if *q == '~' and *z != '~' then print */
  5883. diff --context --new-file --recursive ../../store/tcsh-6.03/tc.sig.h ./tc.sig.h
  5884. *** ../../store/tcsh-6.03/tc.sig.h    Tue Nov 24 13:04:34 1992
  5885. --- ./tc.sig.h    Sat Mar 13 21:53:04 1993
  5886. ***************
  5887. *** 62,68 ****
  5888.   /*
  5889.    * sigvec is not the same everywhere
  5890.    */
  5891. ! # if defined(_SEQUENT_) || (defined(_POSIX_SOURCE) && !defined(hpux))
  5892.   #  define HAVE_SIGVEC
  5893.   #  define mysigvec(a, b, c)    sigaction(a, b, c)
  5894.   typedef struct sigaction sigvec_t;
  5895. --- 62,68 ----
  5896.   /*
  5897.    * sigvec is not the same everywhere
  5898.    */
  5899. ! # if defined(_SEQUENT_) || defined(__MINT__) || (defined(_POSIX_SOURCE) && !defined(hpux))
  5900.   #  define HAVE_SIGVEC
  5901.   #  define mysigvec(a, b, c)    sigaction(a, b, c)
  5902.   typedef struct sigaction sigvec_t;
  5903. ***************
  5904. *** 130,139 ****
  5905. --- 130,141 ----
  5906.   /*
  5907.    * For 4.2bsd signals.
  5908.    */
  5909. + # ifndef __MINT__
  5910.   # ifdef sigmask
  5911.   #  undef sigmask
  5912.   # endif /* sigmask */
  5913.   # define    sigmask(s)    (1 << ((s)-1))
  5914. + # endif /* !__MINT__ */
  5915.   # ifdef POSIXSIGS
  5916.   #  define     sigpause(a)    bsd_sigpause(a)
  5917.   #  define     signal(a, b)    bsd_signal(a, b)
  5918. diff --context --new-file --recursive ../../store/tcsh-6.03/tc.vers.c ./tc.vers.c
  5919. *** ../../store/tcsh-6.03/tc.vers.c    Tue Nov 24 13:04:34 1992
  5920. --- ./tc.vers.c    Mon Mar  8 06:04:48 1993
  5921. ***************
  5922. *** 474,479 ****
  5923. --- 474,484 ----
  5924.      hosttype = "vistra800"; /* Stardent Vistra */
  5925.   # endif /* i860  && !_havehosttype_ */
  5926.   
  5927. + # if defined(__MINT__)
  5928. + #  define _havehosttype_
  5929. +     hosttype = "m68k-atari/MiNT";
  5930. + # endif /* __MINT__ */
  5931. + 
  5932.   # ifndef _havehosttype_
  5933.   #  if defined(mc68000) || defined(__mc68000__) || defined(mc68k32)
  5934.   #   define _havehosttype_
  5935. diff --context --new-file --recursive ../../store/tcsh-6.03/tw.init.c ./tw.init.c
  5936. *** ../../store/tcsh-6.03/tw.init.c    Tue Nov 24 13:04:26 1992
  5937. --- ./tw.init.c    Mon Mar  8 19:25:18 1993
  5938. ***************
  5939. *** 247,259 ****
  5940.       register Char **pv;
  5941.       struct varent *v = adrof(STRpath);
  5942.       struct varent *recexec = adrof(STRrecognize_only_executables);
  5943.   
  5944. - 
  5945.       if (v == NULL) /* if no path */
  5946.       return;
  5947.   
  5948.       for (pv = v->vec; *pv; pv++) {
  5949. !     if (pv[0][0] != '/') {
  5950.           tw_cmd_got |= TW_FL_REL;
  5951.           continue;
  5952.       }
  5953. --- 247,262 ----
  5954.       register Char **pv;
  5955.       struct varent *v = adrof(STRpath);
  5956.       struct varent *recexec = adrof(STRrecognize_only_executables);
  5957. + #ifdef __MINT__
  5958. +     struct varent *suffv = adrof(STRsuffixes);
  5959. +     Char **suffpv;
  5960. + #endif
  5961.   
  5962.       if (v == NULL) /* if no path */
  5963.       return;
  5964.   
  5965.       for (pv = v->vec; *pv; pv++) {
  5966. !     if (!is_abspath(pv[0])) {
  5967.           tw_cmd_got |= TW_FL_REL;
  5968.           continue;
  5969.       }
  5970. ***************
  5971. *** 268,273 ****
  5972. --- 271,289 ----
  5973.           name = str2short(dp->d_name);
  5974.           if (dp->d_ino == 0 || (recexec && !executable(dir, name, 0)))
  5975.           continue;
  5976. + #ifdef __MINT__
  5977. +             {   Char *s = Strrchr(name, '.');
  5978. + 
  5979. +                 if (s && suffv) {
  5980. +                     for (suffpv = suffv->vec; *suffpv; suffpv++) {
  5981. +                         if (!Strcmp(s+1, *suffpv)) {
  5982. +                             *s = 0; break;
  5983. +                         }
  5984. +                     }
  5985. +                 }
  5986. +             }
  5987. + #endif /* __MINT__ */
  5988. + 
  5989.           tw_cmd_add(name);
  5990.       }
  5991.       (void) closedir(dirp);
  5992. ***************
  5993. *** 421,427 ****
  5994.   
  5995.           CLRDIR(tw_cmd_state.dfd)
  5996.   
  5997. !     while (*tw_cmd_state.pathv && tw_cmd_state.pathv[0][0] == '/')
  5998.           tw_cmd_state.pathv++;
  5999.       if ((ptr = *tw_cmd_state.pathv) != 0) {
  6000.           /*
  6001. --- 437,443 ----
  6002.   
  6003.           CLRDIR(tw_cmd_state.dfd)
  6004.   
  6005. !     while (*tw_cmd_state.pathv && is_abspath(tw_cmd_state.pathv[0]))
  6006.           tw_cmd_state.pathv++;
  6007.       if ((ptr = *tw_cmd_state.pathv) != 0) {
  6008.           /*
  6009. diff --context --new-file --recursive ../../store/tcsh-6.03/tw.parse.c ./tw.parse.c
  6010. *** ../../store/tcsh-6.03/tw.parse.c    Tue Nov 24 13:04:26 1992
  6011. --- ./tw.parse.c    Fri Feb 26 03:50:14 1993
  6012. ***************
  6013. *** 261,267 ****
  6014.       case RECOGNIZE:
  6015.       case RECOGNIZE_ALL:
  6016.       if (adrof(STRautocorrect)) {
  6017. !         if ((slshp = Strrchr(wordp, '/')) != NULL && slshp[1] != '\0') {
  6018.           SearchNoDirErr = 1;
  6019.           for (bptr = wordp; bptr < slshp; bptr++) {
  6020.               /*
  6021. --- 261,267 ----
  6022.       case RECOGNIZE:
  6023.       case RECOGNIZE_ALL:
  6024.       if (adrof(STRautocorrect)) {
  6025. !         if ((slshp = Lastslash(wordp)) != NULL && slshp[1] != '\0') {
  6026.           SearchNoDirErr = 1;
  6027.           for (bptr = wordp; bptr < slshp; bptr++) {
  6028.               /*
  6029. ***************
  6030. *** 350,356 ****
  6031.       items[0] = buffer;
  6032.       items[1] = NULL;
  6033.       ptr = items;
  6034. !     count = (looking == TW_COMMAND && Strchr(wordp, '/') == 0) ? 
  6035.           c_glob(&ptr) : 
  6036.           t_glob(&ptr, looking == TW_COMMAND);
  6037.       if (count > 0) {
  6038. --- 350,356 ----
  6039.       items[0] = buffer;
  6040.       items[1] = NULL;
  6041.       ptr = items;
  6042. !     count = (looking == TW_COMMAND && !Has_slash(wordp)) ? 
  6043.           c_glob(&ptr) : 
  6044.           t_glob(&ptr, looking == TW_COMMAND);
  6045.       if (count > 0) {
  6046. ***************
  6047. *** 1156,1162 ****
  6048.       break;
  6049.   
  6050.       case TW_COMMAND:
  6051. !     if (Strchr(word, '/')) {
  6052.           looking = TW_FILE;
  6053.           flags |= TW_EXEC_CHK;
  6054.           flags |= TW_DIR_OK;
  6055. --- 1156,1162 ----
  6056.       break;
  6057.   
  6058.       case TW_COMMAND:
  6059. !     if (Has_slash(word)) {
  6060.           looking = TW_FILE;
  6061.           flags |= TW_EXEC_CHK;
  6062.           flags |= TW_DIR_OK;
  6063. ***************
  6064. *** 1197,1208 ****
  6065.        */
  6066.       flags |= (gpat == 0) ? TW_IGN_OK : TW_PAT_OK;
  6067.   
  6068. !     if ((*word == '~') && (Strchr(word, '/') == NULL)) {
  6069.       looking = TW_LOGNAME;
  6070.       target = name;
  6071.       }
  6072.       else if ((target = Strrchr(name, '$')) != 0 && 
  6073. !          (Strchr(name, '/') == NULL)) {
  6074.       target++;
  6075.       looking = TW_VARIABLE;
  6076.       }
  6077. --- 1197,1208 ----
  6078.        */
  6079.       flags |= (gpat == 0) ? TW_IGN_OK : TW_PAT_OK;
  6080.   
  6081. !     if ((*word == '~') && (! Has_slash(word))) {
  6082.       looking = TW_LOGNAME;
  6083.       target = name;
  6084.       }
  6085.       else if ((target = Strrchr(name, '$')) != 0 && 
  6086. !          (! Has_slash(name))) {
  6087.       target++;
  6088.       looking = TW_VARIABLE;
  6089.       }
  6090. ***************
  6091. *** 1371,1377 ****
  6092.   {
  6093.       register Char *p;
  6094.   
  6095. !     p = Strrchr(path, '/');
  6096.       if (p == NULL) {
  6097.       copyn(name, path, MAXNAMLEN);
  6098.       dir[0] = '\0';
  6099. --- 1371,1377 ----
  6100.   {
  6101.       register Char *p;
  6102.   
  6103. !     p = Lastslash(path);
  6104.       if (p == NULL) {
  6105.       copyn(name, path, MAXNAMLEN);
  6106.       dir[0] = '\0';
  6107. ***************
  6108. *** 1448,1454 ****
  6109.   
  6110.       switch (old[0]) {
  6111.       case '~':
  6112. !     for (p = new, o = &old[1]; *o && *o != '/'; *p++ = *o++) 
  6113.           continue;
  6114.       *p = '\0';
  6115.       if (gethdir(new)) {
  6116. --- 1448,1454 ----
  6117.   
  6118.       switch (old[0]) {
  6119.       case '~':
  6120. !     for (p = new, o = &old[1]; *o && !is_dirsep(*o); *p++ = *o++) 
  6121.           continue;
  6122.       *p = '\0';
  6123.       if (gethdir(new)) {
  6124. ***************
  6125. *** 1516,1525 ****
  6126.            */
  6127.           for (p = edir; *p; p++)
  6128.           continue;
  6129. !         if (*--p == '/') {
  6130.           for (p = nd; *p; p++)
  6131.               continue;
  6132. !         if (*--p != '/')
  6133.               p = NULL;
  6134.           }
  6135.           for (d = edir, s = nd; (*d++ = *s++) != '\0';)
  6136. --- 1516,1525 ----
  6137.            */
  6138.           for (p = edir; *p; p++)
  6139.           continue;
  6140. !         if (is_dirsep(*--p)) {
  6141.           for (p = nd; *p; p++)
  6142.               continue;
  6143. !         if (!is_dirsep(*--p))
  6144.               p = NULL;
  6145.           }
  6146.           for (d = edir, s = nd; (*d++ = *s++) != '\0';)
  6147. diff --context --new-file --recursive ../../store/tcsh-6.03/tw.spell.c ./tw.spell.c
  6148. *** ../../store/tcsh-6.03/tw.spell.c    Tue Nov 24 13:04:26 1992
  6149. --- ./tw.spell.c    Fri Feb 26 03:54:20 1993
  6150. ***************
  6151. *** 53,60 ****
  6152.       bool    foundslash = 0;
  6153.       int     retval;
  6154.   
  6155.       for (;;) {
  6156. !     while (*old == '/') {    /* skip '/' */
  6157.           *new++ = *old++;
  6158.           foundslash = 1;
  6159.       }
  6160. --- 53,67 ----
  6161.       bool    foundslash = 0;
  6162.       int     retval;
  6163.   
  6164. + #ifdef DOSFS
  6165. +     /* skip drive specification, if any */
  6166. +     if (*old && old[1] == ':' && is_dirsep(old[2])) {
  6167. +         *new++ = *old++; *new++ = *old++;
  6168. +     }
  6169. + #endif
  6170. + 
  6171.       for (;;) {
  6172. !     while (is_dirsep(*old)) {    /* skip '/' */
  6173.           *new++ = *old++;
  6174.           foundslash = 1;
  6175.       }
  6176. ***************
  6177. *** 73,79 ****
  6178.           if (p < guess + FILSIZ)
  6179.               *p++ = *cp;
  6180.       ws = p;
  6181. !     for (; *old != '/' && *old != '\0'; old++)/* add current file name */
  6182.           if (p < guess + FILSIZ)
  6183.           *p++ = *old;
  6184.       *p = '\0';        /* terminate it */
  6185. --- 80,86 ----
  6186.           if (p < guess + FILSIZ)
  6187.               *p++ = *cp;
  6188.       ws = p;
  6189. !     for (; !is_dirsep(*old) && *old != '\0'; old++)/* add current file name */
  6190.           if (p < guess + FILSIZ)
  6191.           *p++ = *old;
  6192.       *p = '\0';        /* terminate it */
  6193. ***************
  6194. *** 84,90 ****
  6195.        */
  6196.       /* (*should* say "looking for directory" whenever '/' is next...) */
  6197.       retval = t_search(guess, p, SPELL, FILSIZ,
  6198. !               looking == TW_COMMAND && (foundslash || *old != '/') ?
  6199.                 TW_COMMAND : looking, 1, STRNULL, 0);
  6200.       if (retval >= 4 || retval < 0)
  6201.           return -1;        /* hopeless */
  6202. --- 91,97 ----
  6203.        */
  6204.       /* (*should* say "looking for directory" whenever '/' is next...) */
  6205.       retval = t_search(guess, p, SPELL, FILSIZ,
  6206. !               looking == TW_COMMAND && (foundslash || !is_dirsep(*old)) ?
  6207.                 TW_COMMAND : looking, 1, STRNULL, 0);
  6208.       if (retval >= 4 || retval < 0)
  6209.           return -1;        /* hopeless */
  6210.